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PREFACE 


GE-625/635 GECOS-III FLOWCHARTS contains flowcharts forselected}sections of the 
GECOS-III system. The flowcharts are arranged in CPB-1500 in the Same sequential 


order as the corresponding text in the series of documents CPB-1488 to CPB-1499. 


The initial page of each flowchart carries the full title of the corresponding program or 
routine. In addition, each flowchart page has a quick reference box at the top of the page 
to identify the flowchart on that page. The quick reference box contains the symbolic 
name of the program, the symbolic name of the higher level module, and when available, 
the entry point into the program. 


Flowchart symbols follow the United States American Standard, USAS X3.5-1966. 


Suggestions and criticisms relative to form, content, purpose, or use of this manual are 
invited. Comments may be sent on the Document Review Sheet in the back of this manual 
or may be addressed directly to Documentation Standards and Publications, B-90, Computer 
Equipment Department, General Electric Company, 13430 North Black Canyon Highway, 


Phoenix, Arizona 85029. 
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CPB~1500 


1. DISPATCHER 
—AND-PERIPHERAL ALLOCATION... 


(Reference CPB-1491) 


DSP (EP1) 


. MDISP 


REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT 


SHUTS .CRDSP 


' DO PROCESSOR 
ACCOUNTING 


THERE AN ABORT, No 
SWAP GEPR REQUEST ~~ 
OR. ENABLE 


PROGRAM TO 
END OF DSP 
QUEUE 


3 CPB-1500 


DSP (EP1) 


. MDISP 


TEST AND REACT 
TO ALARM 


GEPOP 
LAI-®X5 
. PNPOP—»X6 


RESET ALARM 
PROGRAM NUMBER TO 
ENABLE —®X0O 


SET NEXT ALARM [| _ _ 
VALVE (GATE SCK4 
. CRACK_OPENED 


ENABLE PROGRAM 
WHOSE ALARM 
RANG 


-MDISP,6 OPEN .CRACK 


-SHUTS .CRDSP 


CPB-~1500 


FIND 
NEW 
PROGRAM 


COUNT 
DISPATCHER 
INITIALIZE 
X6—»0 


PROGRAM NUMBER 
IN DISP 
QUEUE —> X6 


GET NEXT 
PROGRAM NUMBER 
FROM QUEUE 


GET LAL—»x4 
STATE —»>0 


EXECUTE THE 
PROGRAM?” 


REBLK, REL 
OR DEAD 


BDS ON? 


Yes 


EPR, SWAP 
ABORT IN 
CONTROL? 


DSP (EP1) 


. MDISP 


CPB-1500 


DSP (EP1) 
. MDISP 


FIND NEW 
COURTEST CALL 
TO PAY 


ANY 
cc TO No 
START 

2 


Yes 


-SHUTS .CRCCS 
LOC (QUE)—->xX2 


SET STATE MASK 
FOR CONDITIONS F— — 
TO ALLOW CC 


NOT EXEC, LOAD 
GEPR, SWAP IN 
CC, DEAD PROC 
MASK SET 


Is 
No THERE A 
CC_ QUEUE ENTRY 
2 


Yes 


PROGRAM 


NUMBER —»X3 GEL NEX’ 


QUEUE ADDRESS 


STATE—%Q 


No 


SYSOUT 
BIT ON IN 4 
QUEUE ENTRY? 


6 CPB-1500 


DSP (EP1) 
. MDISP 


SET UP NEW 
_ COURTESY 
CALL 


Is 
JOB IN 
DISP QUEUE 
2 


REMOVE IT 
FROM DISP 
QUEUE 


MARK JOB IN 
EXECUTION 
-OPENS .CRDSP 


COUNT CC GET 
ADDRESS FROM 
QUEUE 


Is 
IT HCM 
ADDRESS? 


ADD LAL 
TO ADDRESS 


SET MM BIT 
FOR INDICATOR 


STORE ADDRESS 
IN IC AND I 
STACK 


UNTHREAD 
QUEUE FROM 
cc 


MARK QUEUE 
OPEN 


7 CPB-~1500 


DSP (EP1) 


. MDISP 


Is 
THIS THE 
LAST cc IN 
THREAD? 


COUNT DOWN 
NUMBER OF CC 
TO BE PAID 


RESET CC 
SWITCH 


REMOVE RDBLK, 
RECC BITS FROM 
STATE, SET CC I 


-OPENS .CRCCS 


SAVE .STEMP, 
CELLS IN 
.STMP+ 10 


GET REGISTERS 
FROM .SREGS 


GET REGISTERS 
FROM 40g 


IN PREVIOUS 
IC AND 177 


STORE MAIN 
LEVEL REGISTER 
AT 50, 57 


MAKE 37 
TRACE ENTRY 


CPB-~1500 


DSP (EP1) 


. MDISP 


NO CC TO START. 
LOOK FOR SOMETHING 
ELSE 


-OPENS .CRCCS 


No 
BEEN FOUND? 


Yes 


TURN OFF 


ENABLE 


REMOVE JOB 
FROM DISP 
QUEUE 


DSP QUEUE? 


SET JOB IN 
EXECUTION 
BIT ON 


-OPENS .CRDSP 
INHIB OFF 


ALLOW ANY 
INTERRUPTS TO BE 
PROCESSED BEFORE 
WE GO TO THE JOB 


SET UP .CRSIC, 
>) .CRIRS, .CRFRS 


INHIB ON 
PROGRAM 
NUMBER—®X5 


TRACE ON? >—22 


MAKE 13 
TRACE ENTRY 


9 CPB-1500 


DSP (EP1) - 
. MDISP 


SET UP 
.CRBAS, 
.CRBA4, .CRPRG 


ACCUMULATE 
OVERHEAD 
TIME 


LOAD TIMER 
FOR SLAVE, 
ACCUMULATE TOD 


ANY 
PROCESSOR TIME 
LEFT FOR 
SLAVE? 


Is 
THIS 
PRIVILEGED 
SLAVE? 


ABORT CODE 
5—>Q 


10 


PROCESSOR TIME 


REGISTERS IN 


CPB-1500 


DSP (EP1) 


. MDISP 


- FINISH DISPATCH 
TO SLAVE 


SET BAR FROM 
- SALIM+1 


-AT .SICI ARE 
SLAVE REG LOAD 
AND RET 
INSTRUCTIONS 


DOES I 
SHOW MASTER 
MODE? 


ARE 
REGS IN 
STACK? 


X5 —>34,4 
X6 —> 35,4 
X7 —$35,4 


X5,X6,X7, 
REG STACK 


11 CPB-1500 


DSP (EP1) 
. MDISP 


TRY TO START 
GEPR, ABORT 
OR SWAP 


SET GEPR 
IN CONTROL 


MAKE 34 
TRACE ENTRY 


7 -- : START ABORT 


SET ABORT 
IN CONTROL 


— — —-] START SWAP 


SET SWAP 
IN CONTROL 


MAKE TYPE 
35 TRACE 
ENTRY 


MAKE TYPE 
36 TRACE 
ENTRY 


12 CPB-~1500 


DSP (EP1) 


. MDISP 


TEST IF ABORT, SWAP, 
GEPR REQUEST CAN BE 
ACCEPTED ON ENTRY 

Q = STATE WORD 

X4 LAL 

X6 = Program Number 


nou 


No sysour WRITING 
OADING, GEPR? 
IN? 


OR GEPR 
IN 2? 


GET 1/0 
QUEUE 


Is 


MORE 1/0 
QUEUES? 


SSA 
PUSHED 
DOWN? 


13 CPB-1500 


DSP (EP1) 


. MDISP 


ARE: LOADING, 
7 GEPR IN, GEPR 

Yes“ rq, ABORT NS 
ONTROL, SWAP I 


CONTROL, SYSOUT 
WRITING BITS ON 


DECREMENT 
STACK POINTER 
BACK 
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SWAP 
REQUEST? 


ARE LOADING, 


GEPR IN GEPR ¥ 
REQ, ABORT IN, ei 
ABORT REQ, SWAP 


IN CONTROL, SYSOUT 
WRITING IN CC 
ON IN STATE 


DECREMENT 
STACK POINTER 
BACK 


IC AND I INN Yes 


DECREMENT 
STACK POINTER 
BACK 


CPB-1500 


ERSA 


/3IT 35 OFX y,, 
I¢ AND I ENTRY=1 


? 
No 


-STATE,5 


MOVE REGS FROM 
32 TO .SREGS 
STACK 


TURN ON BIT 35 
IN Ic AND I STACK 
ENTRY 


DECREMENT 
STACK POINTER 


STORE STATE IN 
WORD 7 OF .SREGS 


TURN OFF 
RELC, RDBLK 
BITS IN STATE 
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SAVE REGISTERS FOR 


ABORT, RESET STATE 


OF PROGRAM 


DSP (EP1) 


. MDISP 


CPB-1500 


DSP (EP1) 
. MDISP 


HOLD A PROCESSOR 
WHEN NOTHING FOR 
IT TO DO 


CALC TIME SINCE 
LAST BLOCK 
UPDATE 


ACCUMULATE 
INTO OVERHEAD 
TIME 


RESET TIME TO 
BIG 1 VALUE 


TRACE ON 


MAKE 21 TRACE 
ENTRY 


STORE DIS INTO 


-CRDSP+2,7 


-OPENS .CRDSP 


Is 
«CRDSP+2,7 
=DIS? 


Yes WAIT FOR 


NEXT INTERRUPT 


No 


A UM. us 
AND CHARGE TO 
-CRIDT (IDLE 


16 CPB-1500 


EP2 —— 
GRD 


t, 


TSX1 DACNA 


TSX1_DSP25 


Is 
JOB IN 
COURTESY 


No 
SET ABORT 
CODE = 6 
«SHUT 
»CRDSP 
-GOTO 
-MBRTL,3 


TSX1 DACNB 


SET ROADBLOCK 
BIT IN 
A~REGISTER 


No 


Yes 


ROADBLOCK 


MME GEROAD 
PROCESSOR 
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fe] 
v 


Yes 
AN I/O 


GRD (EP2) 
. MDISP 


Is 
ANY 1/0 No Q 
OUTSTANDING 


Is 
IT ONLY 
COURTESY 
CALL 


Yes 


No 


RESTORE 
~STATE WORD 


IN PROGRAM 


COMPLETED 
SINCE LAST 


TURN OUT 
RELINQUISH 
AND I/O COMPLETED 
BITS IN STATE WORD 


SOESN 
EPR, SWAP\_ no 


CPB-1500 


GRD (EP2) 


. MDISP 


TSX1_ DSPQT 


PUT JOB AT 
THE END OF THE 
DISPATCHER QUEUE 
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CPB-1500 


FRLC (EP3) 
. MDISP 


FORCED RELINQUISH 
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RLC (EP4) 
. MDISP 


RELINQUISH CONTROL 


20 . CPB-1500 


ENCC (EP5) 


. MDISP 


END COURTESY CALL 


END COURTESY CALL 
MME PROCESSOR 


ABORT: CODE 


DECREMENT 
REQUEST COUNT 
COURTESY CALL CO 


-GOTO 
-MBRT1 
J 


MARK CC 
REQUEST ON 
IN STATE 


EXCHANGE .STEMP 
CELLS BACK FROM 


« STEMP+10 


MOVE REGISTERS 


WER 
INCREMENT |, Y°S-/REGISTERS IN 
.SREGS TALLY . SREGS? 
- No 
.SHUT CRDSP 


GET STATE AT 
BEGINNING OF 
CC _FROM 47g 


a1 CPB-1500 


ENB (EP6) 


. MDISP 


ENABLE PROGRAM 


MAKE TYPE 41 Yes 
ENTRY 


-SHUT .CRLAL-1 


PROGRAM NOT 
IN SYSTEM 


-OPEN .CRRAL-1 


Is Is 
< URGENCY SAVE, xe ENABLED Yes 
AS .CRLAL? BIT ON 


? 


No No 


RESET URGENCY 


IN .CRLAL URN ON ENABLED 


BIT 


TURN ON 
ENABLED BIT 


. PNPOP->QU 
. PNPOP-®X0 


22 CPB-1500 


END (EP6) 
. MDISP 


JENABLE A JOB KNOWN 
TO BE IN CORE 


-OPEN .CRLAL-1 


JOB WILL GET 
CONTROL 


SET ENABLED 
BIT IN STATE 


IS JOB IN QUEUE, 
IN EXECUTION, 
SWAP IN CONTROL 
ROADBLOCKED ,, RELQ 


Yes 


MUST PUT JOB 
IN DISPATCHER 
QUEUE 


PROGRAM 
NUMBER IN 


-PNPOP .. X6 
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DSPQH (EP7) 


. MDISP 


PROGRAM NUMBER AT FRONT OF QUEUE 
EP7 Macs 


DSPQX 
TSX2 DSPQX,$ 


PUT PROGRAM INTO 
DISPATCHER QUEUE 
AT HEAD OF QUEUE 


STORE PROGRAM 
NUMBER AT 
HEAD AT QUEUE 


JOB 
IN QUEUE 
ALREADY 


MARK PROGRAM 
IN QUEUE 


JOB 
IN CORE? 


IS STATE= 
IN QUEUE 
2 


GET PROCESSOR 
NUMBER OF IDLE 
PROCESSOR 


Yes 
CAN THIS 
PROCESSOR EXEC. No ANY MORE No 
THE JOB? PROCESSORS 
? 
Yes 


CHANGE DIS IN 
-CRDSP TO TRA 
-1,1C FOR THAT 
PROCESSOR 


ISSUE CLIOC 
TO THAT 


PROCESSOR 
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DSPQT (EP8) 
- MDISP 


PROGRAM NUMBER AT END OF QUEUE 


PUT PROGRAM AT END 
= OF DISPATCHER QUEUE 
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DACNB (EP9) 


. MDISP 


ACCUMULATE PROCESSOR TIME 


DO PROCESSOR ACCOUNTING 
UPDATE TOD 


0 .CRPRG,7 
O .CRPRQ,6 


TURN OFF 
EXECUTING BIT 
IN .STATE,5 


ACCUMULATE 
TIME SINCE LAST 
TIMER SET 


RESET LAST TIME 
UPDATE TOD 
PDATE PROC TIME 


SUBTRACT FROM 
TIME LEFT 
BEFORE ABORT 


26 CPB-1500 


RESTORE STATE AFTER SWAP, 


RESET CONDITIONS AFTER 
SWAP, GEPR, OR CC 


GET STATE TO 
ACC FROM 
SREGS STACK 


MAKE 40 TRACE 
ENTRY 


PRESENT STATE 


TURN OFF CC 
RELC, RBBLK 
IN .STATE,5 


WAS 
S08 TCG: pr ee 
zo 
Yes - 


No 


PROGRAM 
DEAD BIT 
ON? 


% PREV RDBLK 
2s : RELC BITS 


ACC 
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MOVE, GEPR 


DRSTR (EP10) 


. MDISP 


CPB-1500 


DSCNT (EP11) 
. MDISP 


RELINQUISH CONTROL UNTIL PROGRAM ENABLED 


___ | DISPOSE OF PREVIOUS 
JOB IF ANY 


28 CPB-1500 


DO DISC 1/0 USING SYSTEM I/O QUEUE 


EP 12 ee 
DMIOA 


X2 = SKELETON ADDRESS 
X4 = PAT POINTER OFFSET 
SKELETON IS IMAGE OF 
1/0 QUEUE 


—10-»$LOAD 


(RETRY COUNT) 


IS 
> SYSTEM 10 QUEU " GRELC 
OPEN? 


Yes 


SAVE RETURN 
ADDRESS (X1) 
IN STACK 


MOVE IO QUEUE 
SKELETON INTO 
. SSYIO+2---10 


FROM PAT 
ADDRESS, GET 
SCT AND STORE 

IN QUEUE 


FROM SKELETON 
PARAMETER, GET 
READ/WRITE, 
STORE INTO 
SKELETON 


GET 
SEEK ADDRESS 

THEN DEVICE 
MODULE 


SEEK ADDRESS 
—»> QUEUE 
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DMIOA (EP12) 


. MDISP 


PROGRAM NUMBER 


—+ QUEUE 


ARE 
REGULAR SSA 
LIMITS? 


CALC EXTRA 
OFFSET RECEIVED 
BY LIMITS 


MODIFY SEEK 
DCW BY AMOUNT 


.»GRELC 
| 
DMIOB IO COMPLETED? 
Yes 
Yes 
> DMIO9 


roc 
OR MEMORY 
ERROR? 


SET UP QUEUE 
FOR GEPR EOF 


LAST DCW 
EXHAUSTED? 


@+— 


30 CPB-1500 


SAVE X1, 
ABSOLUTE QUEUE 
ADDRESS X3 


.CALL ENTRY 
POINT 4 OF 
DEW MODULE 


ABORT COD=1 
TURN OFF 
LOAD BIT 
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DMIOA (EP12) 


. MDISP 


CPB-1500 


777777777700 


SCK (EP13) 


. MDISP 


SET ALARM 


EP13 
SCK 


.» SHUT .CRACK 
_ Yes Praga TURN 
STEMP + 9 = 0 _ — ‘1 ALARM OFF 


No 


CALC TOD FOR 


ALARM TO RING 


Is 
A Yes PICK UP OLD 
Ges TOD URGENCY 


STORE TOD 
URGENCY IN 
TABLE 


FIND SMALLEST 
TOD IN TABLE 


STORE TOD, 
PROGRAM NUMBER 
IN .CRACK 
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DSPQM (EP14) 
. MDISP 


PROGRAM NUMBER IN QUEUE FOLLOWING INTERRUPT 


PUT PROGRAM IN DISP 
QUEUE AFTER JOB 
ALREADY IN CC 


GET LAL AND 
STATE OF ENTRY |~ 


GET NEXT 
ENTRY 


PUT THIS JOB 
AFTER THIS 
ENTRY 
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TRACF (EP15) 


. MDISP 


EP15 
TRACF 


SAVE TRACE BUFFER AND WRITE OUT 


TRACE DUMPER 
ENTERS HERE 


TRACE8 


COUNT TRACE 
ENTRY 


TRACE ENT: 


1s Ye 
TRACE STOP g NUMBER = 
SET? STIP NO 
o No 


STORE AQ 


IN TABLE 


No 


MME GESNAP 
TRACE TABLE 


REEN DUMPED 5 


OPEN .CRTRC 


34 


Yes 


SYSTEM DUMPS 


CPB-1500 


. LDISP 


SET UP COMM 
CELLS .CRCAL, 
.CREXT, 

.CRGTO 


SET UP 
COMMUNICATION 
REGION CELLS 
. CRTRC 


BYPASS CODE 
FOR PARTIAL 
TRACING 


RESET .CRTRC 
ENTRIES TO 
INHIBIT MAKING 
TRACE ENTRIES 


SET UP COURTESY 
CALL SWITCH 
CELLS .CRCCS 


ZERO CLEAR 
DISPATCHER 
TABLE .CRPRQ 


INITIALIZATION 
ENTRY FROM 
STARTUP 


INITIALIZATION 


ZERO CLEAR 
SNUMB TABLE 
. CRSNB 


ZERO CLEAR 
LAL TABLE 
. CRLAL 


SET UP ICN 
TABLE 
. CRICN 


ZERO CLEAR 
BASE ADDRESS 
CELLS .CRBAS 


SET UP BASE 
ADDRESS CELLS 
. CRBA4 


SET UP 
DISPATCHER 
TABLE .CRDSP 


SET UP FAULT 
EGISTER STORAGE 
CELLS .CRFRS 


ZERO CLEAR 
INTERRUPT 
REGISTER STORAGE 
CELLS .CRIRS 


35 


SET UP 
INTERRUPT IC 
AND I CELL .CRSIC 


ZERO CLEAR 
INTERRUPT 
SWITCH .CRINT 


ZERO CLEAR 
PROGRAM IN 
EXECUTION 
CELLS .CRPRG 


MOVE PROCESSOR 
FLAGS TO 
. CRPRF 


SET UP DERAILS 
IN FRONT 
OF GATE 


SET UP GATING 
VECTOR 
. CRGAT 


SET UP SYSTEM 
GATE COUNT 
. CRGTC 


ZERO ALARM 
CLOCK CELL 
. CRACK 


SET UP TALLY 
WORDS FOR 
ALL SYSTEM 

GATES 


INITIALIZE 
OPEN GATE 
ROUTINE 


SET UP MASK TO 
INHIBIT ALL 
INTERRUPTS WHILE 
A PROCESSOR IS 
WAITING FOR A 
GATE TO OPEN 


ABSOLUTIZE 
TRACE ROUTINE 
ADDRESSES 


SET UP MAXIMUM 
TIME CELL 
- CRMXT 


SET UP MAXIMUM 
SYSOUT LINES 
. CRMXO 


SET UP MAXIMUM 
MEMORY CELL 
- CRMXY 


RETURN TO 
STARTUP 


CPB-1500 


HCL 
. MDISP 


.CALL MACRO 


SAVE A,Q 
IN . STEMP+8,9 


GET MOD NUMBER 
OUT NUMBER 
FROM .CALL IN Q 


PICK UP .CRMDD 
WORD FOR 
MODULE IN Q 


IS 
No No MODULE REENTRANT 
D HCM? 


Yes Yes 


SAVE L (MOD 
NUMBER), + 
ENT NUMBER 

IN STACK 


ADD ENTRY 
NUMBER TO 


MODULE 
ADDRESS 


MOD NUMBER, 
ENT NUMBER ~ SHOT .CRMDD 
—-~» ACC 
Is Yes 
MODULE BUSY? 
No 
MARK MODULE 
BUSY 


STORE PROGRAM 
NUMBER IN .CRMDD 
ENTRY FOR 
MODULE 


»OPEN .CRMDD 
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GET L (MOD 
NUMBER) + 
ENT NUMBER 


CONTROL COMES 
HERE WHEN JOB 


MODULE TO SSA 


OPEN .CRMDD 


SAVE ACC, SET 
ENABLED BIT 
IN STATE 


RECOVER ACC, 
OR AT ENTRY 
STORE REGS 32 


SAVE IC AND I 
OF RETURN IN 
. SSTAK 


RESTORE ACC,Q 
AT ENTRY IN 
. STEMP+8, 9 


REACHES TOP 
OF QUEUE 


RECOVER ACC 


STORE MOD NUMBER 
- —~— +4ENTRY NUMBER IN 
«SLOAD + 1 


MUST LOAD 
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HCL 
. MDISP 


GET ENTRY WORD 
OF MODULE 


No 
MODULE REENTRANT? 5 


PUT MOD NUMBER 
ENTRY NUMBER 
IN ACL 


INCREMENT GATE 
COUNT FOR PRG 


CPB-1500 


HEX 
. MDISP 


-EXIT MACRO 


SAVE ACC, OR 
IN .STEMP+8, 9 


GET MOD NUMBER, 
EXIT NUMBER 
TO ACC 


MAKE TYPE 12 
TRACE ENTRY 


GET .CRMDD 
WORD FOR THIS 
MODULE 


MODULE REENTRANT, 22 


ADD EXIT 
NUMBER TO IC 
AND I IN STACK 
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PUSHDOWN ON 


TURN OFF 
BUSY OFF IN 
. SNTRY, 5 


MODULE REENTRANT? 


DECREMENT 
GATE COUNT 


ERE A 
GEPR, ABORT, SWAP, NO : 
CC. REQUEST? 


REGS IN 
SREGS, 5%? 


SET ENABLED 
BIT IN STATE 
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HEX 
. MDISP 


CPB-1500 


HGT 
. MDISP 


GOTO MACRO 


SAVE AC,0 
IN . STEMP+8,9 


GET CRMDD 
ENTRY FOR MOD 
WE ARE LEAVING 


MODULE REENTRANT, .*°S 


TURN OFF BUSY 
BIT IN .SNTRY 


YeS MODULE REENTRANT? 


TURN OFF BUSY 
BIT IN .CRMDD 


DECREMENT 
GATE COUNT 
FOR PROGRAM 


Ic AND I OF 
GOTO TO ACC 


MAKE TYPE 11 
TRACE ENTRY 


40 


CPB-1500 


HGT 
. MDISP 


LOAD A MODULE FOR 
THE SSA, OR POPUP 
THE SSA 


RECOVER A,Q 
FROM .STEMP+8 


STORE ALL REGS 
IN .SREGS, 5* 


TURN ON SSA 
LOADING BIT IN 
STATE 


ODULE IN SSA 


No 


Is ‘ 
CORRECT MODULE ——— D 
THERE? 


Yes 
y, 


BAD 
CHECKSUM 


STORE CURRENT 
X7 IN REG 
STACK 


MARK PROGRAM 
LOADING BIT 
OFF IN STATE 


GET IC AND I 


OR EXIT No 


THIS A LOAD? >—~25 


PUSHDOWN STACK 
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CPB-1500 


HGT 
. MDISP 


— PUSHDOWN SSA 


STORE REL BLK 
NUMBER FOR 
PUSH 


GET PRIMARY 
SCT INDEX 


CALL NUMBER 
ADDRESS BLOCKS 
USED BY PUSH 


STORE NEXT 
PUSH BLOCK 
NUMBER 


SET UP & 
SSA DCW 


SET UP REGULAR 
SSA DCW 


PUSHDOWN FOR 


SAVE PRESENT 
STACK POINTER 
PUT IN ACC 


GET NUMBER 
STACK ENTRIES 
TO QR 18-29 


DCKSM (STACK) 


LOAD ACC, QR 
TO CHECKSUM 
COPY OF SSA 


DCKSM 


STORE SSA 


CHECKSUM 


me CPB-1500 


SET GEPR PD 
BITS IN STACK 


ADDRESS OF PD 
IO QUEUE 
SKELETON—> X2 


OFFSET TO 
. SPDPA —» X4 


BUILD NEW 
STACK TALLY FOR 
ENTRY STACK 


PUT IC AND I 
OF LAST CELL 
IN STACK 


SAVE BLOCK 
NUMBER OF 
THIS MODULE 


GET SCT, LINK 
FROM INDEX 
IN .CRMDD 


SET UP .SSAPA 
PAT WITH SCT 
LINK NUMBER 
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SET REGULAR 


STACK ENTRY 


HGT 
. MDISP 


CPB-1500 


HGT 
. MDISP 


COUNT CHECKSUM 


WE TRIED 10 


ABORT CODE = 2 
MARK OUT OF LD 


GET NUMBER 
WDS/BLOCK, W, 
FROM SCT ADDRESS 


CONSTRUCT 
IONTP 0,N-5 
STORE DCWS 


SET UP TO 
TRY TO LOAD 
10 TIMES 


SKELETON ——»X2 
SSAPA —»X4 


ABORT CODE 
MARK OUT 
OF LOAD 


- GOTO 
-MBRT1, 
3 
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CPB-1500 


ANY 
PATCHES FOR 
MODULE? 


APPLY PATCHES 
FROM .CRPCH 
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HGT 
. MDISP 


CPB-1500 


HGT 
. MDISP 


GENERATE 
GEPR DCW 


GET NUMBER 
WDS/BLK IN 
PUSHDOWN FILE 
FROM .SPDPA 


CALC NUMBER 
ADDRESS BLOCKS 
FOR 640 WORDS 


DECREMENT BLOCK 
COUNT BY THIS 
NUMBER 


Yes 


No 


STORE 
DECREMENTED 
COUNT 


SAVE PREVIOUS 
STACK ENTRY TO 
RESTORE IT 


SET TRY 
COUNT = 10 


DMIO 


DMIO 


SET UP TO 
CKSUM STACK 


USAGE 


POPUP SSA MODULE 


ABORT CODE 


MARK OUT 
LOADING BIT 


GENERATE 
REGULAR DCW 


CHECKSUM UNIT 


DMKSM — —} COMPARE WITH 


46 


.SCKSM, THIS IS OK 


.GOTO 
.MBRT1, 
3 


CPB-1500 


HGT 
. MDISP 


CHECKSUM GEPR 


Is 
THIS GEPR 
POPUP? 


SET UP TO 
CHECKSUM WHOLE 
SSA 


CHECKSUM = STORED 
CHECKSUM? 


MOVE POPUP 
STACK TO 
POSITION 


GET REG STORE 
BIT FROM OLD 
STACK 


OR WITH SAVED 
Ic AND I 


STORE IC AND I 
BACK INTO STACK 


47 CPB-~1500 


HGT 
. MDISP 


CHECKSUM 


ISOLATE COUNT 

IN Q 18-29 
POSITION IN 
14-26 


LOW ORDER 8 
BITS—»x0O 


QUPPER - 1 
—» QUPPER 


ADD BOTH 
CARRY COUNT 
WORDS 


QUPPER < 0? 
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CPB-1500 


SYSTEM TRACE 


SAVE ALL 
USERS REGISTERS 
IN ,SREGS 


BTORE (IC AND 1) 
+1 IN STACK 


TIME OF DAY 
—>Q 0-35 


PRC NUMBER, 
PRG NUMBER 
—>Q 18-26 


/ 
TRACE2 
7a 
? 


SUBTRACT 1 
FROM IC AND I 
IN STACK 


A,Q—+TRACE 
TABLE 


RECOVER USER 
REGISTERS 
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TRACE 
. MDISP 


CPB-~1500 


CLEAR Q 18-26 


PROG NUMBER 
—pQ 18-20 


PROG NUMBER 
—pQ 21-26 


TRACE8 
TRACE8 


CHANGE XED 
-CRTRG TO NOP 


EC .CRTCR+2? 


CHANGE XEC 
. CRTRC+2 TO NOP 
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CPB-1500 


OPEN SYSTEM GATES 


OPGAT 


DECREMENT GATE 
OUNTER (. SGATE 


ANY 
PROCESSOR 
WAITING? 


GET ADDRESS 
OF TALLY 
FOR GATE 


DECREMENT 
TALLY 


CONNECT TO 
ALL PROCESSORS 
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OPGAT 
. MDISP 


CPB-1500 


SHUG 
. MDISP 


CLOSE SYSTEM GATES 


SAVE ACC,QR 
SAVE MEM |g 
ONTROLLER MASK 


LOAD MEM 

CONTROLLER WAIT FOR CIOC 
MASK INHIBIT FAULT (DIS) 

INTERRUPTS 


WAIT FOR CIOC 
FAULT CDIS 


RELOAD MEM 
CONTROLLER 
MASK 


RECOVER A,Q 
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CPB-1500 


2. FAULT PROCESSING 
AND SERVICE MME'S 


(Reference CPB-14993) 


03 


FPRC 
.MFALT 


SECONDARY FAULT VECTOR 


THIS ROUTINE WILL 

BE REPEATED FOR AS 
MANY TIMES AS THERE 
ARE PROCESSORS 


SET X7 EQUAL 
TO PROCESSOR 
NUMBER 


SAVE THE 
FAULT TYPE 


GET FAULT 
CODE IN 
Q-REGISTER 


SAVE REGISTERS 
FOR FAULTING 
PROCESSOR 


SAVE 
BASE ADDRESS 
REGISTER 


A PROGRAM 
UNNING? 


STORE REGISTERS 
AT LOCATION 
POINTED TO BY 
.CRFRS 
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FLT 
. MFALT 


RECOGNIZE FAULT TYPE AND PROCESS: FAULT 


QU FACTOR PLUS 
(IC AND I) 
LEAVES FAULT 
CODE IN QU 


SAVE THE 
FAULT CODE 


CODE EQUAL 
EXECUTE? 


FAULT \ 
CODE EQUAL 
MME? 
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AR=(IC AND I) 
WHERE FAULT 
OCCURRED 


XO=ADDRESS 
PORTION OF 
MME COMMAND 


SET UP MASTER 
MODE BIT IN 
AR 


TURN 
APPROPRIATE 
BITS ON IN IR 
OF FAULTING 
PROCESSOR 


CPB-1500 


? 


/” FAULT 


No 
RUNOUT? 


POP UP 
REGISTER 
STACK 


FAULT 
CODE EQUAL 
PARITY? 


FAULT 
CODE EQUAL 
OVERFLO 


RESTORE 
REGISTERS AND 
RETURN TO 
FAULTING 
PROCESSOR 
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CODE EQUAL TIMER 


FLT 
.MFALT 


CPB-1500 


FLT 
»MFALT 


X6=PROGRAM 
NUMBER OF 

PROGRAM IN 
EXECUTION 


X5=LOWER 
ADDRESS LIMIT 
OF PROGRAM 
IN EXECUTION 


RESTORE 
BAR 


RESET MME .EMM 
ALLOWED BIT 
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FETCH (IC AND I) 
OF FAULTING 
PROCESSOR 


FAULT 
CODE EQUAL 
MME? 


FAULT 
CODE EQUAL 
PARITY} 


SAVE (IC AND I) 
AND QR 
DURING TRACE 


CPB-1500 


MAKE TYPE 16 
TRACE ENTRY 
(OTHER FAULT) 


XO=ADDRESS 
OF TRACE 
ROUTINE 


TSX1 0,0* 
PUT PROCESSOR, 
PROGRAM NO. 
IN Q 


TSX1 1,0* 
PUT TRACE 
ENTRY AWAY 


RECOVER QR 
AND (IC AND 1) 


X1=ADDRESS 
OF FAULT 
PROCESSING 
ROUTINE 


X4=ADDRESS 
FOR RECOVERY 
OF FAULT 


QU=GECOS II 
ABORT CODE 

QL=GECOS III 
ABORT CODE 
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FAULT 
IN HCM OR 
SSA? 


FLT 
. MFALT 


CPB-1500 


FLT 
. MFALT 


TIMER 
RUNOUT 


STORE TIMER 
REGISTER 


AR=COMPLEMENT 
OF TIMER 
REGISTER VALUE 


TIMER 
ZERO OR 
NEGATIVE? 
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RESET TIMER 
TO 2 MINUTES 


COMPUTE TIME 
SINCE LAST 
TIMER SETTING 


UPDATE 
TIME OF DAY 


SET CURRENT 
TIMER SETTING 
TO 2 MINUTES 


X6=PROGRAM 
NUMBER OF 
PROGRAM IN 
EXECUTION 


CPB-1500 


CIN EXECUTION? 


X5=LAL OF 
PROGRAM IN 
EXECUTION 


UPDATE 
PROCESSOR 
TIME USED 


NEGATE THE 
TIME LAPSE 


UPDATE 
ALLOWABLE TIME 
BEFORE 
ABORT-TIME 


FETCH 
(IC AND I) 
OF FAULT 


SET REGISTERS 
STORED FLAG, 
SAVE (IC AND I) 
IN .SSTAK 


SET BIT IN 
STATE WORD TO 
ENABLE REQUEST 
WHILE SWAPPING 
OUT 


- GOTO 
-MDISP,1 
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UPDATE 
OVERHEAD 


TIME 


FLT 


. MFALT 


CPB-1500 


FLT 
. MFALT 


FIND 
MEMORY 
PARITIES 


X2=0 (USED 
TO COUNT 
PARITIES) 


X4=0 (USED 
TO INDICATE 
PARITY IN A 
PROGRAM) 


X6=PROGRAM 
NUMBER OF 

PROGRAM IN 
EXECUTION 


NOW RUNNING 
(X60)? 


SAVE (IC AND I 
OF PARITY AT 
. SSTAK, 5* 
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SET PROGRAM 
NUMBER OF 
PROGRAM IN 
EXECUTION 

EQUAL TO ZERO 


X3=0 (CELL 
TO TEST FOR 
PARITY) 


AR=MASK FOR 
TESTING 
INDICATORS 


TURN ON PARITY 
MASK IN 
INDICATOR 
REGISTER 


CPB-1500 


FETCH A 
MEMORY CELL 


STORE 
INDICATORS 


AU=ADDRESS 
WHERE PARITY 
OCCURRED 


MAKE TYPE 77 
TRACE ENTRY 
(PARITY) 


FLT 
. MFALT 


XO=ADDRESS 
OF TRACE 
ROUTINE 


TSX1 1,0%* 
PUT TRACE 
ENTRY AWAY 


PROGRAM 
NOW RUNNING 
(X6=0)? 
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FLT 
.MFALT 


X4=X4+1 PARITY 
OCCURRED IN A 
SLAVE PROGRAM 


INCREMENT 
PARITY COUNT 
(X2 = X2+1) 


INCREMENT 
CORE ADDRESS 
(X3 = X3+1) 


AU = CURRENT 
CORE ADDRESS 


END 
OF CORE? 


STORE PARITY 
FAULT CODE 
FOR SYSTEM 

ABORT 


RESTORE 
PROGRAM NUMBER 
OF PROGRAM 
IN EXECUTION 


WAS 
A PROGRAM 
RUNNING? 
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CPB-1500 


PARITY FOUND? 


IN 
A SLAVE 
PROGRAM? 


FETCH 
(IC AND I) 


PICKUP PARITY 
ABORT CODES 
(QU=GECOS II 
QL=GECOS III) 


X1=ADDRESS 
OF FAULT 
PROCESSING 
ROUTINE 


X4=ADDRESS 


FOR RECOVERY 
OF FAULT 
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= 7 FAC30+2 


FLT 
. MFALT 


CPB~1500 


FLT 
. MFALT 


MME 
PROCESSOR 


CAUSE 
(IC AND I) TO 
POINT TO MME 


SET REGISTERS 
STORED FLAG, 
SAVE (IC AND 1) 
IN .SSTAK 


SET BIT IN 
STATE WORD TO 
ENABLE REQUEST 
WHILE SWAPPING 
OUT 


.GOTO 
.MDISP, 1 


IN 
MASTER 
MODE? 


ABSOLUTIZE 
ADDRESS OF 
MME 


MME 
ADDRESS 
MINUS? 
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CPB-1500 


SAVE MME 
ADDRESS IN 
. SSTAK 


XO=ADDRESS 
OF TRACE 
ROUTINE 


RELATIVIZE 
MME ADDRESS 


67 


FLT 
. MFALT 


MAKE TYPE 15 
TRACE ENTRY 
(MME FAULT) 


TSX1 0,0* 
PUT PROCESSOR, 
PROGRAM NUMBER 

IN Q 


TSX1 1,0* 
PUT TRACE 
ENTRY AWAY 


GET ADDRESS 
OF WHERE AQ 
REGISTERS ARE 


FETCH AQ 
REGISTERS 


CPB-1500 


FLT 
. MFALT 


SAVE AQ AT 
. STEMP+8 , 9 


QR=ADDRESS 
OF MME RTN 
AND ENTRY 
POINT 


DOES 
QR EQUAL 
ZERO? 


.GOTO TO 
MME MODULE 


. CRCAL42 , * 
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QR=23, 


(MME ERROR) 


CPB-1500 


FLT 
. MFALT 


FAC22 
MEMORY FAULT 
TAG COMMAND 


=< SLAVE 


SAVE TURN DISASTER 
(Ic AND I) BIT ON IN 
AT ,SSA,5* STATE WORD 


FETCH 
(IC AND TI) 
FROM .SSA,5* 


69 CPB-1500 


FLT 
. MFLAT 


X4=ADDRESS 
FOR RECOVERY 
OF FAULT 
MINUS 1 


FETCH 
(IC AND I) 
FROM .SSA,5* 


TURN MASTER 
MODE BIT OFF 


SET REGISTERS 
STORED BIT 
IN (IC AND I) 


SAVE 
(IC AND I) 
AT .SSA,5* 


X4=ADDRESS 
FOR RECOVERY 
OF FAULT 


CHANGE IC 

PORTION OF 
(IC AND I) 
SAVED AT 
SSA, 5* 
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CPB-1500 


a: FAC23 
<= ZERO OPCODE 


oe) = HOM cc) _ SSA Ga) = SLAVE 


71 CPB~1500 


HCM 


SSA 


FAC25 
OVERFLOW 


SET REGISTERS 
STORED BIT IN 
(Ic AND I) 


ISOLATE 
OVERFLOW 
BITS 


TURN OFF 
IN .SSA,5* 


TURN ON IN 
SLAVE WORD 
25 


X1=ADDRESS 
WHERE 

REGISTERS 

ARE STORED 


12 


CPB-1500 


EXPONENT 
OVERFLOW? 


PICK UP 
PLUS INFINITY 


WAS 
A-REGISTER 


PICK UP 
MINUS INFINITY 


EXPONENT 
UNDERFLOW?, 


AQ AND EXP 
REGISTERS 
EQ ZERO 
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> . SICI,5 


FLT 
. MFALT 


CPB-1500 


FLT 
» MFALT 


HCM 


SSA 


FAC 26 
DIVIDE CHECK 


SET REGISTERS 
STORED BIT IN 
(IC AND I) 


SAVE 
(IC AND I) 
AT .SSA,5* 


TURN BIT 29 
ON IN SLAVE 
WORD 25 


X1=ADDRESS 
WHERE 

REGISTERS 

ARE STORED 


AQ AND EXP 
REGISTERS 
EQUAL 0 


SAVE AQ AT 
4,1 AND EXP 
AT 6,1 


TRA .SICI,5 


74 


CPB-1500 


FAC27 
i re DERAIL 


(0,1) —_ HOM @ _ SSA (2:1) — SLAVE 
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FLT 
.MFALT 


FAC30 
PARITY OP 

NOT COMPLETE 
LOCKUP 


(0.1) - HOM _-_ SSA 


—<— SLAVE 


STORE 
(Ic AND I) 
IN FAULT 
RECOVERY WORD 


STORE 
(Ic AND I) 
IN WORD 28 

OF SLAVE 
PROGRAM 


SET REGISTER 
STORED FLAG 
SAVE 
(IC AND I) 
IN .SSTAK 


CLEAR AR, 
ISOLATE GECOS II 
ABORT CODE, 
SAVE IN WORD 29 
OF SLAVE 


ISOLATE GECOS IIT 
ABORT CODE 
IN QL 


.GOTO 
-MBRT1, 3 


76 CPB-1500 


FSB (EP1) 
. MFALT 


TAKE DUMP FOR SYSTEM ABORT 


EXECUTE 
= SYSTEM ABORT _ BUTTON 
PUSHED 


STORE 
Ic AND I 
OF FAULT 


SET FAULT 


TYPE=12 


SET FAULT 


TYPE=13 


STORE 
REGISTERS BY 
PROCESSOR 


7 . CPB-1500 


FGAD (EP2) 
.MFALT 


GET ADDRESS FOR FILE CODE 


RECOVER 


AQ-REGISTER 


78 CPB-~1500 


FGCON (EP3) 
.MFALT 


PUT INFORMATION IN FCB 


FGCON 


RECOVER 
AQ REGISTER 


. GOTO 
.MFLT1,2 


79 CPB-1500 


FGFIL (EP4) 
.MFALT 


SWITCH PRIMARY AND SECONDARY LOGICAL UNITS 


FGFIL 


RECOVER 
AQ-REGISTER 


GOTO 
.MFLT1,3 
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QR EQUAL 
PROCESSOR 
TIME USED 


RESTORE THE 
A-REGISTER 


SAVE QR IN 
. SSTAK, 5* 


SAVE TIMER 
SETTING 


FETCH LAST 
TIMER SETTING 


PROVIDE PROCESSOR TIME PRIOR TO REQUEST 


COMPUTE TIME 
LAPSE SINCE 
LAST TIMER 
SETTING 


STORE 


AQ-REGISTER 


ADD PROCESSOR 
TIME USED UP 
TO NOW 


REGISTERS 
STORED? 


X0=LOCATION 
WHERE 
REGISTERS 
ARE STORED 
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FGLAP (EP5) 


. MFALT 


CPB-1500 


FGRET (EP6) 
.MFALT 


RESET PROGRAM SWITCH WORD BITS 


FETCH 
AQ-REGISTER 


IF BIT ON IN 
Q-REGISTER, 
TURN IT OFF IN 
SWITCH WORD 
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FGSET (EP7) 
.MFALT 


SET PROGRAM SWITCH WORD BITS 


FGSET 


FETCH 
AQ-REGISTER 


IF BIT ON IN 
Q-REGISTER, 
TURN IT ON IN 
SWITCH WORD 


83 CPB~-1500 


FGTIM (EP8) 
.MFALT 


PROVIDE DATE AND TIME OF DAY 


AR=BCI DATE, 
QR=SECONDS 
PAST 
MIDNIGHT 


ADD TIME 
SINCE BOOT 
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FGLP (EP9) 
.MFALT 


DIVIDE EXECUTION TIME INTO SECONDS 


RECOVER 
AQ-REGISTER 


-GOTO 
-MFLT1,5 
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FEMM (EP10) 


.MFALT 


LET SLAVE PROGRAM ENTER MASTER MODE 


SET MASTER 

MODE BIT IN 
I-PORTION OF 
(Ic AND I) 


ABSOLUTIZE 
IC-PORTION 
OF (IC AND I) 


QR=23, 
(MME ERROR) 


.GOTO 
.MBRT1,3 


PUT (IC AND I) 
BACK IN .SSTAK 


FETCH 
(Ic AND I) 
FROM . SSTAK 


PROGRAM 
ALREADY IN 
MASTER MODE? 


No 


86 CPB-1500 


FIND 


FETCH 
AQ-REGISTER 


MOVE FILE 
CODE TO 
A-REGISTER 


X1l=NUMBER OF 
PAT POINTERS 


QR=MASK 
FOR COMPARE 
MASK COMMAND 


X4=0FFSET 
TO FIRST 
PAT 


PAT FROM FILE CODE 


ARE 
FILE CODES 
EQUAL? 


CAUSE X4 
TO POINT 
TO NEXT PAT 


DECREMENT 
NUMBER OF 
PAT POINTERS 


ANY 
MORE PAT 
POINTERS? 


SET A-REGISTER 
EQUAL TO 
ZERO 
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FNDE (EP11) 


. MFALT 


CPB-1500 


GMRL (EP12) 
.MFALT 


DEALLOCATE MEMORY 


RECOVER 
AQ-REGISTER 


.-GOTO 
.MFLT1,4 


88 CPB-1500 


BOOT (EP13) 


.MFALT 


CALL .MDUMP AT EP2 


CHANGE CALL TO 
DUMP AT FSYB2 
TO EP2 


SHUT GATE TO 
ALLOW ONLY ONE 
PROCESSOR TO 
FAULT OUT 


XO=PROCESSOR 
NUMBER ZERO 
X1L=FAULT VECTOR 
ADDRESSES 


CAUSE EXECUTE 
FAULTS TO 
TRANSFER TO 
FSYB5 


QTHE PROCESSOR 
THAT FAULTED? 


No 


SET THIS 
PROCESSOR CONNECT 
FAULT VECTOR 

TO EXECUTE 
FAULT VECTOR 
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INCREMENT TO 
ADDRESS OF 
NEXT PROCESSOR 
FAULT VECTOR 


FILL FIRST 100 
WORDS WITH NOP 
TO LET ALL 
INTERRUPTS FIR 


RESET MEMORY 
CONTROLLER 
MASK TO ALLOW 
INTERRUPTS 


WAIT 
FOR CONNECT 
FAULT? 


CPB-1500 


BOOT (EP13) 


. MFAULT 


DISABLE 
THIS 
PROCESSOR 


CONTROL 
PROCESSOR? 


WAIT FOR 
10 SECONDS 


X1=REGISTERS 
X6=. PNPOP 
X5=.CRLAL, 6 


TAKE MASTER 
MODE DUMP 
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CPB-1500 


FAULT PROCESSOR INITIALIZATION 


X5=LOAD ADDRESS 

TO BE USED AS 

ABSOLUTIZING 
FACTOR 


TURN OVERFLOW 
MASK BIT ON 
IN INDICATOR 

REGISTER 


ABSOLUTIZE 
CODING IN BODY 
OF PROGRAM 


X6=LOCATION 
OF ADDRESS 
TABLE FOR 
PROCESSING 

FAULTS 


ABSOLUTIZE 
ADDRESS PORTION 
OF TABLE FOR 
PROCESSING 
FAULTS 


X7=NUMBER OF 
PROCESSORS 


X6=ADDRESS OF 
FIRST SET OF 
SECONDARY 
VECTORS 


ABSOLUTIZE 
CODING IN SET 

OF SECONDARY 
FAULT VECTORS 


X6=ADDRESS 
OF NEXT SET 
OF SECONDARY 
FAULT VECTORS 


SUBTRACT 1 
FROM NUMBER 
OF PROCESSORS 
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-IFALT 
. MFALT 


CPB-1500 


.IFALT 
. MFALT 


ANY 


MORE PROCESSORS? 


X6=ADDRESS OF 
PRIMARY FAULT 
VECTOR IMAGES 


ABSOLUTIZE 
ADDRESSES IN 


FAULT PROCESSOR 


PRIMARY VECTOR 
IMAGES 


X7=NUMBER OF 
PROCESSORS 


X5=VALUE FOR 
CHANGING STC1 
ADDRESSES 


Yes 
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X4=VALUE FOR 
CHANGING TRA 
ADDRESSES 


X6=ADDRESS OF 
PRIMARY FAULT 
VECTOR IMAGES 


MOVE PRIMARY 
VECTOR IMAGES 
FOR PROCESSOR 

N TO STARTUP 

AREA 


X6=ADDRESS OF 
PRIMARY FAULT 
VECTOR IMAGES 


MODIFY STC1 

ADDRESSES TO 
HANDLE NEXT 
PROCESSOR 


CPB-1500 


ADDRESS FOR 
CONNECT FAULT 
REQUIRES FURTHER 
ALTERATION 


X6=ADDRESS OF 
PRIMARY FAULT 
VECTOR IMAGES 


MODIFY TRA 
ADDRESSES TO 
HANDLE NEXT 
PROCESSOR 


SUBTRACT 1 
FROM NUMBER 
OF PROCESSORS 


X7=NUMBER OF 
PROCESSORS 


QU EQUALS 
BEGINNING OF 
SECONDARY 

VECTOR 


ADD LENGTH OF 
SET OF SECONDARY 
VECTORS TO QU 


QU WILL EQUAL 
ADDRESS WHERE 
NEXT MODULE 
CAN BE LOADED 
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.IFALT 
».MFALT 


CPB-1500 


-IFALT 
. MFALT 


SUBTRACT 1 
FROM NUMBER OF 
PROCESSORS 


AR=0 MEANING 
NO ALTERNATE 
LOAD LIST 
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CPB-1500 


FGAD (EP1) 


.MFLT1 


GET ADDRESS FOR FILE CODE 


- SHUT .CRSCT 
SHUT GATE 
ON CONFIG 

TABLES 


FORMAT 
PHYSICAL 
DEVICE ADDRESS 


FETCH 
FILE CODE 


-OPEN ,CRSCT 
OPEN GATE 
ON CONFIG 

TABLES 


SEARCH PAT 
POINTERS FOR 
FILE CODE 


SET UP UNIT 
OF ZERO 


AU EQUALS 
OFFSET TO 
PAT POINTER 


PICK UP FIRST 
WORD OF 
CONFIG TABLE 


X4 = POINTER 
TO BODY OF 
PAT (OFFSET 

VALUE) 


WERE 
REGISTERS 
STORED? 


GET PRIMARY 
TABLE 


STORE 
AQ REGISTER 
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FCON (EP2) 


.MFLTI1 


GET HIGHEST 
RELATIVE 
ADDRESS 
ALLOWED 


GET RELATIVE 
ADDRESS OF 
1ST FCB 


MAKE FCB 
ADDRESS 
ABSOLUTE 


FETCH FILE 
CODE FROM 
FCB 


PUT INFORMATION IN FCB 


X1=NO. OF PATS 
QR=CMK MASK 
X4=ADDR OF 
1ST PAT 


FILE CODES 
EQUAL? - 


DECREMENT 
POINTER AND 
NUMBER OF 
PATS 
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FETCH PAT 
POINTER WORD 


IS FILE 
ALLOCATED? 


SET FILE 
PRESENT BIT IN 
LOCSYM -5 OF 
FCB 


REMOVE ALL 
DEVICE 

DEPENDENT FLAGS 
FROM WORD 0 


SET BIT FOR 
SYSOUT IN 
LOCSYM OF 

FCB 


NEXT FCB? 


RESTORE 
AQ-REGISTER 
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FCON (EP2) 


.MFUT1 


CPB-1500 


FCON (EP2) 


.MFLT1 


X2=ABS PAT 
POINTER 
X1=SCT PNTR 


CLEAR OLD 
PHYSICAL DEVICH 


ADDR IN LOCSYM 
-1 OF FCB 


EXTRACT I0C 
AND CHANNEL 
FROM SCT PUT 
IN LOCSYM -1 
OF FCB 


ENTER DEVICE 
NUMBER IN 
LOCSYM -1 OF 
FCB 


CONVERT DEVICE 
TYPE TO SHORT 
FORM AND STORE 

IT IN LOCSYM 
OF FCB 


FETCH FILE 
SERIAL NUMBER 
FROM PAT 
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CPB-1500 


USE 99999 
AS FILE 
SERTAL NUMBER 


PUT FILE 
SERIAL NUMBER 
IN LOCSYM 
-7 OF FCB 


FETCH REEL 
SEQ NUMBER 
FROM PAT 


DOES 
IT EQUAL 
ZERO? 


MAKE REEL 
SEQ NUMBER 
EQUAL TO 1 


PUT REEL SEQ 
NUMBER IN 
LOCSYM -8 

OF FCB 


DISP 
CODE EQUAL 
CORD? 


SET BIT 29 
IN LOCSYM -5 
OF FCB 
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FCON (EP2) 
.MFLT1 


SET LINKED/ 

RANDOM BIT 
IN LOCSYM 
OF FCB 


PUT 15T LINK 
NUMBER IN UPPER 
PART OF LOCSYM 

-7 OF FCB 


PUT FICTICIOUS 
LAST LINK NUMBER 
IN LOWER HALF 


CPB-1500 


FLSW (EP3) 
.MFLT1 


SWITCH PRIMARY AND SECONDARY LOGICAL UNITS 


FETCH 
FILE CODE 


SEARCH PAT 
POINTERS FOR 
FILE CODE 


GET POINTER 
TO BODY 
OF PAT 


FETCH FIRST 
WORD OF PAT 


SET 
ACCUMULATOR 
TO. ZERO 


IS THERE 
A SECONDARY 


SWITCH PRIMARY 
AND SECONDARY 
UNIT 
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CPB-1500 


RECOVER 
AQ-REGISTER 


.GROAD 
WAIT FOR 
ALL I/O TO 
FINISH 


CLEAR AL 
TO ZERO 


STORE 
REGISTERS 


GMRL (EP4) 


.MFLT1 


DEALLOCATE MEMORY 


SET REGISTERS 
STORED BIT IN 
A-REG (AU= 
RETURN ADDR) 


PUT RETURN 
ADDRESS IN 
STACK 


ANY 
MEMORY TO 
RELEASE} 
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GMRL (EP4) 


»-MFLT1 


.SHUT .CRPOQ 
SHUT GATE ON 
GEPOP QUEUE 


LOW 
MEMORY TO 
RELEASE? 


ROOM 
IN GEPOP 
QUEUE? 


RESTORE STACK 
POSITION 


-OPEN .CRPOQ 
OPEN GATE ON 
GEPOP QUEUE 


. GRELC 
RELINQUISH 
CONTROL 


HIGH 
MEMORY TO 
RELEAS 


ROOM 
IN GEPOP 
QUEUE? 
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GMRL (EP4) 


.MFLT1 


RESTORE STACK 
POSITION 


FILL IN GEPOP 
QUEUE FOR LOW 
MEMORY 


INHIBIT SWAP/ 
MOVE UNTIL 
MEMORY RELEASE 
HAS BEEN DONE 


' 


SET WAITING 
FOR MEMORY 
SIZE CHANGE 
BIT IN STATE 
WORD 


- OPEN .CRPOQ 
OPEN GATE ON 
GEPOP QUEUE 


GET PROGRAM 

NUMBER IN QU 

AND URGENCY 
IN QL 


FILL IN GEPOP 
QUEUE FOR 
HIGH MEMORY 
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GMRL (EP4) 


»MFLT1 


.CALL .MDISP, 6 
INSURE THAT 
PROGRAM IS 
READY TO 
EXECUTE 


GECOS BUG 
PROGRAM NUMBER 
NOT IN SYSTEM 
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FETCH HEADER 
FOR GEPOP 
QUEUE ENTRY 


BUILD ENTRY 
ACCORDING TO 
HIGH OR LOW 
MEM RELEASE 


CPB-1500 


DIVIDE EXECUTION TIME INTO SECONDS 


ANY TIM 
LEFT AFTER 


UPDATE 
TOTAL TIME 
LEFT 


FETCH 
GELOOP TIME 


CONVERT TO 
MILLISECS/64 
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LOOP TIME WILL 
BE SET EQUAL 
TO TIME LEFT 


FETCH 
TIME LEFT 


SET TIME 
LEFT EQ TO 
LOOP TIME 


CALCULATE TIME 
LEFT AFTER LOOP 
TIME AND 
SAVE IT 


FGLP (EP5) 


.MFLT1 


CPB-1500 


FPRIO (EP6) 


.MFLT1 


GIVE 1/0 ACTION PRIORITY 


FETCH 
FILE CODE 


FIND PAT 
POINTER 


GET OFFSET 
TO PAT AND 
SCT ADDRESS 
FROM PAT 


CALCULATE 
LOGICAL 
PRIMARY 

CHANNEL INDEX 


CALCULATE 
DEVICE INDEX 
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SET PRIORITY 
REQUEST FLAG, 


STORE 
INF ORMATION 
IN .SGEPR+1 


CPB-1500 


RESET BAR TO SMALLER AREA 


FETCH 
AQ REGISTER 


ALLOWABLE TIME 
AT NEW BAR (QR) 
IS STORED IN 
WORD 17 OF 
SLAVE 


CLEAR BITS 1-19 
AND 32-35 OF 
ACCUMULATED 
FAULT STATUS 
WORD TO ZERO 


ADD LAL VALUE 
TO AU 
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U 
PUT DESIRED BAR 
RELATIVE TO 
SLAVE ZERO IN 
ACCUMULATED 
FAULT STATUS 


SET (IC AND I) 
RELATIVE TO NE 
BAR WHERE 
EXECUTION IS 
TO CONTINUE 


SET BIT IN 
STATE WORD 
INDICATING 
BAR HAS BEEN 
RESET 


SET OVERFLOW 
BIT IN 

INDICATOR 

REGISTER 


STORE THE 
CURRENT 
TIMER SETTING 


FLBAR (EP7) 


.MFLT1 


CPB-1500 


FLBAR (EP7) 
».MFLT1 


FETCH THE 
LAST TIMER 
SETTING 


COMPUTE THE 
TIME LAPSE 


UPDATE THE 
TIME OF DAY 


UPDATE 
PROCESSOR 
TIME USED 


ADJUST TIME 
LEFT BEFORE 
ABORT 


CURRENT 
TIME EQUAL 
ZERO? 


TIMER NEGATIVE? 


FETCH ALLOWABLE 
TIME AT NEW 
BAR 


SET TIMER 
EQUAL TO 
ALLOWABLE TIME 
AT NEW BAR 
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LAST TIMER 
SETTING EQ 

ALLOWABLE TIME 
AT NEW BAR 


LAST TIMER 
SETTING EQ 


CURRENT TIMER 


SETTING 


CPB-1500 


FWAKE (EP8) 


.MFLT1 


ALLOW A PROGRAM TO DELAY 


FETCH TIME 
INTERVAL ROUND 
TO NEAREST 
MILLISECOND 


GET PROGRAM 
URGENCY IN 
LOWER 6-BITS 


RECOVER USERS 
A-REGISTER 


.CALL .MDISP,13 
SET ALARM 


FETCH 
AQ-REGISTER 
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TIME 
INTERVAL 


CHANGE URGENCY 
TO ZERO 


. GOTO 
.MDISP,1 


CPB-1500 


GMRLM (EP9) 
.MFLTI1 


MEMORY RELEASE ENTRY FOR TIME-SHARING 


RECOVER 


AQ-REGISTER 


110 CPB-~1500 


3.1/0 SUPERVISION 


(Reference CPB-1494) 
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LINK (EP1) 


. MIOS 


LINK 1/0 TO END OF QUEUE 


SET FLAG TO 
LINK AT END 
OF QUEUE 


SAVE XO 
THROUGH X4 
IN STACK 


SET LOGICAL 
DEVICE INDEX 
=0 


CALCULATE LOGICAL 
DEVICE INDEX { 
D(POSITION OF DEVICE 
SCT IN CHANNE 
DEVICE SCTS) 


ABSOLUTIZE 
X4, 1/0 
ENTRY ADDRESS 


Is 
SCT FOR 
MDS200? 


No PMX IMAGE 
ONTAIN SEEK 
we 


REQUESTED? SanpeRe 


ZERO FIRST 
STATUS 
WORD 


SET FLAG TO 
STORE SEEK ADDRESS 


AT CONNECT TIM 


EXTRACT ANGULAR 
POSITION FROM | 
SEEK ADDRESS AS 
LOGICAL DEVICE 
INDEX 


INCREASE 
REQUEST COUNT 
FOR PROGRAM 
BY 1 


- TSXO ILPCX * 
TO CALCULATE 
LOGICAL PRIMARY 


CHANNEL INDEX 
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LINK (EP1) 
. MIOS 


SHUTS .CRQGT 
SHUT SYSTEM 
GATE 


SAVE LOGICAL 
DEVICE INDEX 
AND LINK FLAG 


RESET GESPEC 
REQUESTED FLAG 
IN CHANNEL SCT 


RELOAD X5 WITH 
PROGRAM LAL, 
DESTROYED BY 
SYSTEM GATE 


No 


OCCURRED ON oe 


LOAD Xl WITH SET START 
GESPEC 


FLAG 


TRUE CHANNEL 
INDEX 


HAS 
ESPEC BEER. No RESET SI FLAG 
EQUESTED FOR IN TRUE CHANNEL 
OGICAL~ TABLE 
CHANNEL? 
Yes 
SET GESPEC 
on Is LINKED FLAG IN 
DEVICE TYPE eG 1/0 ENTRY AND 
CONSOLE? IN LOGICAL 


CHANNEL TABLE 


Yes 


Is 

PROGRAM IN No 
CONTROL 

GEPOP ? 


Yes 
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LINK (EP1) 


. MIOS 


LINK 
FIRST OR 
LAST? 


LINK I/0 ENTRY 


LINK I/O ENTRY LINK 1/0 ENTRY 


FIRST LAST 


INITIALIZE I0S 
STATUS (LINKED), 


NTRY STATUS (LINKED) 
AND LOGICAL DEVICE 
INDEX IN WORD 0 


SET STATE BIT 
27 ZERO, 1/0 
REQUEST LINKED 


GEPR 
REISSUE 
ENTRY? 


RESET 


? DEVICE 
SCT STOP 


Yes Is 1/0 
q NTRY GESPECED/ 
LINKED? 


No 


TSX1 STIO, $ . 
START 1/0 


1s 
CHANNEL 
BUSY? 


OPEN SYSTEM 
GATE 


TSX3 STCPC,$ 
START 1/0 


RESTORE 
REGISTERS Patt 
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LINKF (EP2) 
. MIOS 


LINK 1/0 TO FRONT OF QUEUE 


SET FLAG 
TO LINK AT 
HEAD OF QUEUE 
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LINKR (EP3) 
. MIOS 


LINK REISSUED 1/0 TO FRONT OF QUEUE 


LINKR — —- EP3 
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QUEUE (EP4) 


. MIOS 


ASSIGN AN I/O ENTRY 


SAVE XO IN 
- SSTAK,5 


LOAD X4 WITH 
ABSOLUTE ADDRESS | 
OF FIRST 1/0 
ENTRY 


LOAD XO WITH 
TALLY COUNT 
(SNIO,5) AND ZERO 

TERMINATION 
CONDITION 


LOAD AR WITH 
ENTRY STATUS 
MASK 


SEARCH FOR 
OPEN STATUS 
ENTRY 


RPTX 0,11 
CANA 0,4 


ZERO 
TERMINATION? 
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SET ENTRY 
STATUS AS 
BUILDING 


SET X4 = 0 
FOR DENIAL 


ZERO WORDS 
2-10 OF 
ASSIGNED ENTRY 


ADJUST X4, 
AS OFFSET 
TO LAL 


RETRIEVE XO 
FROM .SSTAK,5 
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QUEUE (EP4) 


. MIOS 


CPB-1500 


INOS (EP5) 


. MIOS 


MME GEINOS PROCESSOR 


RETRIEVE 
Ic AND I 
FROM STACK 


ABSOLUTIZE 
Ic AND I 


SET X3 TO 
ABSOLUTE SELECT 
SEQUENCE ADDRESS 


WAS 
REQUEST FROM SLAVE__No 
SERVICE 
AREA? 


SET SWITCH TO 
VALIDATE POINTERS 
FOR SSA AND SA 
LIMITS 


SET SWITCH TO 
VALIDATE POINTERS 
FOR SA LIMITS 

ONLY 


SET TEST CELL 
FOR UPPER ADDRESS 
LIMITS CHECK 
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INOS (EP5) 
. MIOS 


SET ABORT 
CODE 31 
(15) 


No 


TSXO PTRVL SET ABORT 
VALIDATE CODE 34 (6-2) 
FILE POINTER (K3) 


TSXO FNDFC 
GET PAT POINTER 
OFFSET FOR 
FILE CODE 


IS 
PRIMARY FILE 


RELEASED? 
1 No 
4 
Is . SET ABORT 
PAT FOR SYSTEM = D CODE 30 
DEVICE? (13) 


No 
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INOS (EP5) 
. MIOS 


.QUEUE (GET 
AN 1/0 
ENTRY) 


ABSOLUTIZE 
RESPONSE 
VALUE 


RELINQUISH CONTROL 
UNTIL AN 1/0 
TERMINATES 


WAS 
/0 ENTRY 


I 


NSERT INTO ENTRY: 
SCT TO WORD 2; PAT 
POINTER OFFSET, 
PGMNO TO WORD 3 


TSXO ILPCX 
CALCULATE LOGICAL 


0 SET ABORT 
Ko COMMAND CODE 39 
"PROGRAM (K8) 
LOAD?" 


TRANSFER VIA 
-CRCT4 ,2* 
X2=LOGICAL PRIMARY 
CHANNEL INDEX 


TRANSFER TO 
EP2 CHANNEL —— 
ROUTINE 
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RETRIEVE AR CONTAINING 
I/O COMMAND 1, MASK OUT 
ALL BUT DEVICE AND I0C 

COMMAND, RECORD COUNT 


STORE COMMAND 
IN PMX IMAGE 
WORD 4 


STORE COMMAND 
IN SMX3 IMAGE 
WORD 4 


TSX2 DCWCK 
VALIDATE DCW 
POINTER AND 
FIRST DCW 


STORE FIRST 
DCW IN SMX1 
IMAGE, WORD 5 


STORE DCWP+1 
OFFSET IN SMX2 
IMAGE, WORD 6 


SET IC AND I 
ADDEND = 3 


NORMAL 3-WORD 
SELECT SEQUENCE 
COMMAND REQUIRES 
DATA TRANSFER 


INOS (EP5) 
. MIOS 


“Is 
STATUS RETURN ponvrerY2_p(0-3) 


SET ABORT 
CODE 33 
(K2) 


TSXO PTRVL 
VALIDATE STATUS 
RETURN POINTER 


r+ 
> 


REQUESTED?~ 


LOAD AR WITH 
PROPER GEPR 
OVERRIDE OPTION 
FLAG 


1s 
DCW POINTER RET 
REQUESTED? 


OR DCW OPTION 
FLAG TO AR 


STORE OPTION 
FLAGS IN 
WORD 2 
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INOS (EP5) 
. MIOS 


Is 
COURTESY CALL ADDRESS 
PRESENT} 


No 


Yes 


TSXO PTRVL 


SET ABORT 
Error 


CODE 36 
(K5) 


VALIDATE CC 
ADDRESS 


STORE RETURN 
WORD IN 1/0 
ENTRY, WORD S$ 


RELATIVIZE 
I/O ENTRY 
ADDRESS 


RETRIEVE ICI AND I 
FROM STACK, ADJUST 


WITH IC AND I ADDEND, 
STORE IN STACK 


EXIT 
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DS/DR NONDATA 

TRANSFER 3-WORD 
SELECT SEQUENCE 
NO I/O INVOLVED 


RETRIEVE 


COMMAND FLAG: 
REW = ZERO 
FSR = POSITIVE 
BSR = NEGATIVE 


woud 


SAVE SELECT 
SEQUENCE ADDRESS 
IN .STEMP+3, LOWER 


RETRIEVE PAT 
OFFSET .STEMP-+1 
LOWER 


ABSOLUTIZE PAT 
OFFSET TO GET 
ADDRESS OF PAT 


TSXO ILPCX 


CALCULATE LOGICA 
CHANNEL INDEX 


IS FILE No 
RANDOM? 


Yes 


REWIND Yes 
COMMAND? 


SET CHANNEL 


READY STATUS 


No 


SET ABORT 


CODE 37 
(K6) 
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INOS (EP5) 
. MIOS 


1s 
FLAG FOR 
REWIND? 


“© 


TRANSFER VIA 
-CRCT4 TO CHANNEL 
MODULE SEEK 
CALCULATION 
OUTINE TO PERFORM 
BACKSPACE 


Error 


SET STATUS AS 


BEGINNING OF 
TAPE 


STORE STATUS 


IN I/O ENTRY 
TEMP ORARTLY 


RETRIEVE 
SELECT SEQUENCE 
ADDRESS FROM 

. STEMP+3, LOWER 


ZERO IC AND I 
ADDEND IN 
. STEMP+3 


CPB-1500 


INOS (EP5) 
. MIOS 


STATUS 
RETURN POINTER 
PRESENT? 


No 


Yes 


TSXO PTRVL 
VALIDATE Error SET ABORT = 


CODE 33 


STATUS RETURN ~ 


PTR 


No 


TSXO PTRVL 
VALIDATE 


SET ABORT 
CODE 36 (s-1) 
K5 


ADDRESS 


STORE RETURN 
WORD IN 1/0 
ENTRY, WORD 9 


SET I/O ENTRY 
STATUS "GEPR" 


LOAD AR,QR WITH 
STATUS WORDS 


TSXO STRET ADD 3 TO IC 
RETURN AND I ADDEND (0-5) 


STATUS IN .STEMP+3 


ay CPB-~1500 


TRANSFER VIA 
.CRCT4 TO CHANNEL 
MODULE SEEK 
ALCULATION ROUTINE 
TO BSR OR FSR 


QR CONTAINS 
FLAG 


SET STATUS 
CHANNEL READY 


SET BEGINNING 
OF TAPE STATUS 


SET END OF 
FILE STATUS, 
(17)8 


DRL 
SCT NOT 
KNOWN 
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INOS (EP5) 


. MIOS 


CPB-1500 


INOS (EP5) 


. MIOS 


REQS-RESS COMMANDS 
3-WORD SELECT SEQUENCE 
NO DCWS INVOLVED 


RETRIEVE 1/0 
COMMAND, EXTRACT 
DEVICE AND IOC 

COMMAND, AND 
RECORD COUNT 


STORE 1/0 
COMMAND IN PMX 
IMAGE, WORD 4 


STORE 1/0 
OMMAND IN SMX 
IMAGE, WORD 7 


TSXO PTRVL 
VALIDATE 


SET ABORT 
CODE 33 
(K2) 


SET IC AND I 
ADDEND = 3 


LOAD AR WITH 
GEPR OVERRIDE 
OPTION 
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INOS (EP5) 


. MIOS 


SINGLE CHARACTER COMMANDS 
— — —- NOW DATA TRANSFER COMMANDS 
3 WORD SELECT SEQUENCE 


TWO TYPEWRITER COMMANDS 
5 WORD SELECT SEQUENCE 
DATA TRANSFER 


TSX2 DCWCK 
VALIDATE DCW 
POINTER AND 
FIRST DCW 


STORE FIRST 
DCW (WRITE) IN 
SMX1 IMAGE, 
WORD 5 


STORE WRITE 
DCWP+1 OFFSET 
IN WORD 6 


ADD 2 TO 
SELECT 
SEQUENCE 
ADDRESS 


TSX2 DCWCK ADD 5 TO 


Ic AND I 
ADDEND 


POINTER AND 
FIRST DCW 
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INOS (EP5) 
. MIOS 


LINKED 
Sp: ae ane FILE 


Is No No 
COMMAND bs - FORWARD TOO 
DRCV? 
Yes Yes 
LCULATE NUMBER Yes RANDOM 
OF BLOCKS PER ' FILE? 
TANDARD RECORD 
No 
SET CURRENT 
UBSEN SET SOFTWARE 
BLOCK POSITION 
EOF STATUS IN 
IN PAT BACK WORD 10 
ONE RECORD 
RETRIEVE ABSOLUTE 
LOAD QR SELECT SEQUENCE 
WITH ADDRESS FROM 
ZERO . STEMP+3 LOWER 
7, ADD 2 TO SELECT 
. SEQUENCE ADDRESS 
TO ACCESS 


COMMAND 2 


CALL CHANNEL MODUL Y 
SEEK CALCULATION INITIALIZE IC 
ROUTINE VIA Error AND I ADDEND 
‘CRCT4 TO GET SEEK 

ADDRESS 


=2 


STORE Y y 


SEEK ADDRESS IN P (5-3) (1-1) 
IMAGE, WORD 4 


RETRIEVE ABSOLUTE 
SELECT SEQUENCE 
ADDRESS 


SET ABORT 


CODE 32 
(17) 
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RETRIEVE I/0 
COMMAND 2, 
EXTRACT DEVICE 
AND IOC COMMANDS 
AND RECORD COUNT 


STORE COMMAND 2 


IN SMX3 IMAGE, 
WORD 7 


TSX2 DCWCK 
VALIDATE DCW 
PTR1 AND 
FIRST DCW 


STORE FIRST 
DCW IN SMX1 
IMAGE, WORD 5 


STORE FIRST 
DCW PTR+ 
OFFSET IN 

SMX2 IMAGE, 

WORD 6 


SAVE SELECT 
SEQUENCE 
ADDRESS IN 
. STEMP+3, 
LOWER 


RETRIEVE 
PAT OFFSET 
FROM .STEMP+1, 
LOWER AND 
ABSOLUTIZE 


INOS (EP5) 


. MIOS 


DS/DR DATA TRANSFER 
5 WORD SELECT SEQUENCE 
2 1/0 COMMANDS 


TSXO ILPCX 
CALCULATE 


LOGICAL PRIMARY, 
CHANNEL INDEX 


29) 
» 


Yes 


WAS 
REQUEST FROM SLAVE 
SERVICE AREA? 


No 


SUBTRACT 1K 
FROM DATA 

ADDRESS 
FOR SEEK 


ADD LAL 
TO DATA 
ADDRESS 


RETRIEVE 
RELATIVE BLOCK 
NUMBER FROM 
DATA ADDRESS 


STORE RELATIVE 
BLOCK NUMBER 
IN WORD 10 OF 
I/O ENTRY 
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INOS (EP5) 


. MIOS 


_ _. ___]} ILLEGAL 
I/O COMMAND 


SET ABORT 
CODE 39 
(K8 ) 


RESET 1/0 
ENTRY TO 
OPEN 


.GOTO 
.MBRT1, 3 
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SPEC (EP6) 


. MIOS 


MME GESPEC PROCESSOR 


RETRIEVE QR 
SAVE IN 
. STEMP+7 ,5 


SET GESPEC 
REQUESTED FLAG 
IN CHANNEL SCT 


TSXO FNDFC FILE 
CODE IN AR, FIND |Not found 
PAT PTR OFFSET 1 


LOAD AR WITH 


"2" DENIAL 


FILE 
RELEASED OR SYSTEM D 


Yes 


DEVICE? 


USING PAT PTR 
OFFSET, GET 
PAT OFFSET 


SHUT .CRQGT 
GATE 


SING PAT OFFSET, 
GET Xl = SCT 
ADDRESS 


TSXO ILPCX 
CALCULATE LOGICA 
PRIMARY CHANNEL 


RESET GESPEC 
REQUESTED FLAG 


GESPEC No LOAD AR WITH 
ALLOWED ON DEVICE/ »}) "2" DENIAL 
CHANNEL? 


Yes 


DEVICE 


TYPEWRITER? >No 


Yes 


Is 
PROGRAM 
GEPOP? 


No 


Yes 
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SPEC (EP6) 


. MIOS 


FIND FIRST 
GESPECED 1/0 
ENTRY LINKED 
INTO QUEUE 


OPEN .CRQGT 
GATE 


DRL, 
SYSTEM 
ERROR 


RESET ENTRY 
STATUS EXCEPT 
STOPPED, SET 
ENTRY OPEN 


TSXO UNLNK 
UNLINK ENTRY 
FROM QUEUE 


Ween i ANOTHER 
GESPECED ENTRY 


RESET CHANNEL 
GESPEC LINKED 
FLAG 


REDUCE REQUEST 
COUNT FOR 
PROGRAM 
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OPEN .CRQGT 
GATE 


LOAD AR "0", 
OK RESPONSE 


WERE 
REGISTERS 
SAVED? 


REPLACE AQ IN 
.SSA STORAGE 


ITYM (EP7) 


. MIOS 


MASTER MESSAGE PROCESSOR 


SAVE INDEX 
REGISTERS IN 
STACK 


ABSOLUTIZE I/0 
ENTRY ADDRESS 


PICK UP MASTER 
TYIO OPTION 
FLAG IN QR 


STORE RETURN 
WORD OF CALLING 
SEQUENCE IN 1/0 
ENTRY, WORD 9 


IS CC 
ADDRESS 
ABSOLUTE? 


ADD ABSOLUTE CC 
ADDRESS OPTION 
FLAG TO QR 


135 


LIMITS FLAG SET IN 


STORE OPTION 
FLAGS IN I/O 
ENTRY WORD 2 


STORE MESSAGE 
CODE WORD 
IN STACK 


No 


Sc CALLING 
SEQUENCE? 


SET MASTER 
LIMITS FLAG 
IN ENTRY 


SEARCH TABLE 
FOR MESSAGE 
CODE 


PICK UP FILE 
CODE FROM 
TABLE ENTRY 


TSXO FNDFC 
GET OFFSET 
TO PAT PTR/ 
FILE CODE 


Not Found 


STORE OFFSET 
IN I/O ENTRY, 
WORD 3 


CPB~-1500 


ITYM (EP7) 
. MIOS 


STORE PROGRAM 
NUMBER IN I/0 
ENTRY, WORD 3 


GET SCT ADDRESS 
FROM PAT, STORE IN 
I/O ENTRY, WORD 2 


STORE POINTER 
OFFSET IN SMX4 
IMAGE, WORD 8 


PICK UP DATA 


ADDRESS FROM 
FIRST READ DCW 


ASTER FLAG Yes 
ET IN CALLING 
EQUENCE? - 
No 
No 


SUBTRACT IK 
FROM DATA 
ADDRESS 


ADD LAL TO 
DATA ADDRESS 


STORE BLANKS 
IN FIRST TWO 
WORDS OF 
READ AREA 


STORE WRITE COMMAND 


STORE WRITE 
COMMAND IN PMX 
AND SMX3 IMAGES 
WORDS 4 AND 7 


STORE WRITE 
DCWP OFFSET IN 
SMX4, WORD 8 


(WITH CARD PUNCH 
OMMAND) IN PMX, 
WORD & 


STORE READ COMMAND 
(WITH CARD PUNCH 
COMMAND) IN SMX3, 
WORD 7 


LOAD X4 WITH 
WRITE DCWP 
OFFSET 


GET FIRST DATA 
ADDRESS FOR 
WRITE 


MASTER FLAG 
SET IN CALLING 
SEQUENCE? 


IN SLAVE SERVICE 


ADD LAL~1K 
TO DATA ADDRESS 


ADD LAL TO 
DATA ADDRESS 


USE CARRIAGE 
CONTROL CODE IN 
TABLE ENTRY TO MAP 
TWO WORDS OF 
CARRIAGE CONTROL 
INFORMATION 
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STORE CARRIAGE 
CONTROL 
INFORMATION IN 
FIRST 2 WORDS 
OF DATA AREA 


STORE FIRST 

WRITE DCW IN 

SMX1 IMAGE, 
WORD 5 


STORE WRITE 
DCWP+1 OFFSET 
IN SMX2 IMAGE, 

WORD 6 


RETRIEVE 
MESSAGE CODE O 
REGISTERS FROM 

STACK 


IS 
GEPR IN 
CONTROL? 


LINK 
LAG SET IN 
CALLING 
SEQUENCE? 


No 


i «LINK ; ; . LINKF ; 


” 


EXIT 
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ITYM (EP7) 


. MIOS 


CPB-1500 


PTRVL 
. MIOS 


POINTER VALIDATION 


ABSOLUTIZE 
INPUT POINTER 
IN Xl 


POINTER BELOW 


. WAS 
REQUEST FROM 


POINTER BELOW 


TRA 2,0 
NORMAL RETURN 
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DCWCK 
. MIOS 


DCW POINTER VALIDATION 


DCWCK 


ZERO 
TEMPORARY FLAG 
. STEMP+2 


RETRIEVE DCWP 


OFFSET FROM SELECT 
SEQUENCE (1,3) AND 
STORE IN SMX4 
IMAGE, WORD 8 


TSXO PTRVL |} aoe SET ABORT 
VALIDATE 2 . CODE 35 : 
DCW POINTER (Kt) 
INOS 
Ok 
No . 
D 
Yes 
WAS PREVIOU e Srane ee : (>) 
- 2 
DCW-TDCW ie 
INOS 


SET TEMP FLAG 
(TDCW) IN 
STEMP+2 


Yes 
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DCWCK 
. MIOS 


SUBTRACT IK 
FROM DATA 
ADDRESS 


ADD LAL TO 
DATA ADDRESS 


UPDATE DCWP 
TO ACCESS 
NEXT DCW 


STORE NEW DCWP 
OFFSET IN SMX4 
IMAGE, WORD 8 
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LOAD AR WITH 
DCW 


LOAD X1 WITH 
DCWP+1 OFFSET 


TRA 0,2 


CPB-~1500 


FNDFC 
. MIOS 


FIND FILE CODE. 


LOAD Xl WITH 
NUMBER OF PATS 
(. SNPAT, 5) 


LOAD X4 WITH 
OFFSET TO FIRST 
PAT PTR (.STPPT,5) 


NORMAL 
RETURN 


SUBTRACT 1 FRO 
Xl (COUNT) AND 
SUBTRACT 1 FROM 
X2 (OFFSET) 


ERROR 
RETURN 
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FMTAR 
. MIOS 


FORMAT ERROR ACCOUNTING RECORD 


SAVE Xl 
AND X3 


STORE QR WITH 
STATUS WORD 1 
IN WORD 10 OF 
BUFFER 


STORE SYSTEM ID 
IN WORD 1 OF 
BUFFER 


STORE DATE 
IN WORD 2 
OF BUFFER 


USE PGMNO 
IN LIEU 
OF SNUMB 


RETRIEVE 
ACTIVITY 
NUMBER 
FROM SSA 


USE ZERO 
ACTIVITY 
NUMBER 


STORE SNUMB 
IN WORD 3 
OF BUFFER 


STORE ACTIVITY 
NUMBER IN 
WORD 4 OF 
BUFFER 


STORE DEVICE 
TYPE CODE AND 
ANY GEPR FLAGS 
IN WORD 4 


STORE TIME 
INCREMENT 

SINCE STARTUP 
IN WORD 5 


STORE TIME 
OF CONNECT 
IN WORD 7 
OF BUFFER 


No 


RETRIEVE I/0 
ACCOUNTING CELLS 
FROM CHANNEL SCT 


STORE IN 


WORDS 8 AND 9 
OF BUFFER 


DOES PMX 
GE HAVE SEE 
ADDRESS}? 


STORE PMX 
IMAGE COMMAND 
IN WORD 11 
OF BUFFER 
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Yes 


RETRIEVE 1/0 
ACCOUNTING CELLS 
FROM DEVICE SCT 


CPB-1500 


Is 
DEVICE 
TAPE? 


LDQ WITH 
FILE SERIAL 
NUMBER 
FROM PAT 


STQ IN 
WORD 12 
OF BUFFER 


ET DEVICE NUMBER 
AND CHANNEL NUMBER 
FROM SMX3 AND 
INSERT INTO 
WORD 11 OF BUFFER 


INSERT I0C 
NUMBER INTO 
WORD 11 


LOAD X1 
WITH ABSOLUTE 
ADDRESS OF 
LOGICAL RECORD 


LOAD X5 
AND X6 
FOR GEPOP 
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~CALL .MIOS,13 
CALL ACTFL 
IN I0S 


RELOAD 
X6, QR, Xl, 
AND X3 


RETURN 


STORE SMX3 
IMAGE COMMAND 
IN WORD 11 

OF BUFFER 


LOAD QR 
WITH SEEK 
ADDRESS FROM 
PMX IMAGE 


FMTAR 
. MIOS 


CPB-1500 


IOTRM 
. MIOS 


INTERRUPT HANDLER 


COUNTER 
PARITY 
NTERRUPT, 


DERAIL, 
SYSTEM DISASTER 


INHIB ON 


SPECIAL 
INTERRUPT 


SAVE 
REGISTERS 


Yes SET SI 


TRACE CODE 


INHIB ON No 


INITIATIO 
NTERRUPT 


SAVE 
REGISTERS 


SET ITI 
TRACE CODE 


INHIB ON 


TERMINATION _ SAVE 
REGISTERS 


SET TI 
TRACE CODE 


INHIB ON 
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IOTRM 
. MIOS 


LOAD X5 WITH 
GEPOP LAL 


LOAD X7 WITH 
ZERO, CONTROL 
PROCESSOR 


LOAD X1 WITH 
.CRPRG TO SAVE 
OVER GATE 


TRACE OFF 


SET UP AQ 
FOR TRACE ENTRY 


RESTORE 
. CRPRG 


RELOAD 
REGISTERS 
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IOTRM 
. MIOS 


NCREMENT .CRTIR 


(COUNT OF 
INTERRUPTS) 
RETURN 
Is , TO POINT 
SOFTWARE GATE OF INTER 
SHUT? RUPT 
No 


SET SOFTWARE 


GATE SHUT 


WAS 
A PROGRAM IN 
XECUTION? 


No 


Yes 


SAVE REGISTERS 


FOR INTERRUPTED 
PROGRAM 


SET PROGRAM 


INTERRUPTED 
FLAG 


LOAD X7 WITH 
ERO FOR CONTRO 
PROCESSOR 


SAVE IC AND I 
FOR PROGRAM 
LATER DISPATCHING 


LOAD X5 AND X6 
FOR INTERRUPTED 
PROGRAM 


ZERO ENTRY 
FOR PROGRAM 
IN ,CRPRQ 


TSX1 
-MDISP,9 PRO- 
GRAM PROCESSOR 
ACCOUNTING 


-SHUTS .CRDSP 
GATE 


WAS 
PROGRAM IN 
CC? 


Yes 


SX1 .MDISP,8 
UT PROGRAM A 
TAIL OF 


DISPATCHER QUEUF 


HEAD OF 
DISPATCHER QUEUE 


TRACE PROGRAM 
PUT IN QUEUE 


TRACE PROGRAM 
IN QUEUE 


.OPENS .CRDSP 
GATE 


RESTORE 
. CRPRG 


146 CPB~1500 


PAVE DISPATCHER 
REGISTERS 
INTERNALLY 


LOAD X7=0 FOR 
CONTROL 
PROCESSOR 


SET NO PROGRAM 
INTERRUPTED 
FLAG 


AVE IC AND I OF 
INTERRUPT FOR 
EVENTUAL RETURN 


INITIALIZE 
FOR I0c-0 


INITIALIZE FOR 
I0C SPECIAL 
INTERRUPT 
QUEUE SEARCH 


RETRIEVE SOFTWARE 
NTERRUPT COUNTER 


MARK ENTRY 

PROCESSED AND 
UPDATE SOFTWAR 
COUNTER 


Yes 


Is Yes 


PREVIOUS aaa 
PROCESSED? 


-SHUTS .CRPOQ 
GATE 


GEPOP QUEUE 


PUT BURST OF 
SI ENTRY IN 
QUEUE 


- OPENS .CRPOQ 
GATE 


CALCULATE TRUE 
CHANNEL INDEX 
LOGICAL CHANNE 
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IOTRM 
. MIOS 


CPB-1500 


CONFIGURED? 


THERE AN ACTIV Cos} 
I/O ENTRY2~ 
Yes 
Is - 
I/O ENTRY ADDR Ss-tes same 
-1? 
No 
LOAD 


X4=1/0 ENTRY ADDRESS 
X5=PROGRAM LAL 
X6=PROGRAM NUMBER 


CALCULATE 
Ioc TIME 


Is 
PAT OFFSET 


Yes 


UPDATE IOC 
TIME FOR 
ACCOUNTING FILE 


UPDATE I0C 
TIME IN PAT 


UPDATE TOTAL 
CHANNEL TIME 
IN CHANNEL 
MODULE 


TTRC 
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TRACE PROCESS 
INTERRUPT 


FORMAT STATUS 
WORD 1 


CHANNEL 
READY OR 
EOF? 


TSX3 FMTAR 
FORMAT ERROR 
ACCOUNTING 
RECORD 


TRACE CALL TO 
CHANNEL MODULE, 
EP1 


MODULE 
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IOTRM 
. MIOS 


Y, 


_ __ _[ STATUS RETURN 
ACTION 


= —| GEPR ACTION 


\J 


J 


__ a SI-GESPEC ACTION 


J 


== = SI-NO ACTION 


== NO ENTRY 


— a SI-START 1/0 

__ __ _| Dsu200 SEEK, 
ERROR THRESHOLD 

25 REISSUE CONSOLE 
READ 


-— a ERROR THRESHOLD 
__ __ _| GEPR ACTION 
MULTIRECORD SIMULATION 


ERROR THRESHOLD 
MULTIRECORD SIMULATION 


ae, STATUS RETURN ACTION 
MULTIRECORD SIMULATION 
ISSUE NEXT CONNECT 

—e. MULTIRECORD SIMULATION 

ons CPZ100 PUNCH 
MULTIRECORD SIMULATION 


CPB-1500 


YQ we ge 8 
OOO OOOO © © © © 


v 


J 


* 


OO © 


IOTRM 
. MIOS 


INITIALIZE TO 


CHECK TI QUEUE, 
SAME IOC 


FINISHED? 


INITIALIZE TO 
CHECK II QUEUE, 
SAME I0C 


Is 
LAST ENTRY 
PROCESSED? 


UPDATE I0S 
COUNTER 
MOD 16 
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DECREMENT 
-CRLIT COUNT 
BY 1 


ADD 1 TO 
I0C NUMBER 


IS LOST 
INTERRUPT FLA 
ZERO? 


HAVE WE 
COMPLETED LOS 
CHECK? 
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IOTRM 
. MIOS 


CPB-1500 


IOTRM 
. MIOS 


LEAVE INTERRUPT 
HANDLER 


ZERO INTERRUPT 
HANDLER 
SOFTWARE GATE 


TRACE LEAVING 
INTERRUPT 
HANDLER 


RESTORE 
DISPATCHER 
REGISTERS 


RETURN TO 


DISPATCHER 


CHECK FOR LOST 
INTERRUPTS 


RESET .CRLIT 
TO COUNT 


INITIALIZE 
Ioc 0 


INITIALIZE FOR 
16 CHANNELS 


CALCULATE FIRST 
TRUE CHANNEL 
INDEX 


Is 
CHANNEL 
BUSY? 
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CHANNEL 
BUSY 


CALCULATE 
LOGICAL 
CHANNEL INDEX 


7 
CALCULATE 
LOCATION 
OF CHANNEL 
ODULE,—EP5 


SET INTERNAL 
LOST FLAG 


INTERRUPTS 
IN_.CRTLS 


Yes 


RETRIEVE 
SMX3 IMAGE 
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IOTRM 
. MIOS 


KEEP RECORD 
COUNT RESIDUE 
IN AR 


INSERT ILLEGAL 
STATUS, LOST 
FLAG, II 


STORE IN SRI, 
STATUS WORD 1 


CALCULATE 
LOGICAL PRIMAR 
CHANNEL INDEX 


LOAD X6, PGMNO 
OF ENTRY 


LOAD X5, 
GEPOP LAL 


CPB-1500 


IOTRM 
. MIOS 


TSX3 FMTAR 
FORMAT ERROR 
ACCOUNTING 
RECORD 


SHARED 
DEVICE? 


GEPR 
OVERRIDE 
REQUESTED? 


SET STOP FLAG 
IN CHANNEL 
SCT 


GEPR 
OVERRIDE 
REQUESTED}, 
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IOTRM 
. MIOS 


CHECK FOR 
MULTIRECORD 
COMMAND 


Is No 
MULTIRECORD BEJNG-—————D 


INCREMENT FOR 
NEXT TRUE 
CHANNEL INDEX 


CPZ 100 No 
PUNCH SIMULATED? > 


LOAD QR, 
ORIGINAL COMMAND 
RECORD COUNT 


LOAD AR, 
RECORD COUNT 
R DUE 


INCREMENT I0C 
NUMBER 


ALL IOC 
CHECKED? 


ZERO INTERNAL 
LOST FLAG 


NSERT MULTIRECORD 
COMMAND IN QR 


STORE IN PMX, 
SMX IMAGES 


REDUCE RECORD 
COUNT RESIDUE 
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IOTRM 
. MIOS 


MULTIRECORD 
NOT SIMULATED 


OAD AR 
ORIGINAL 
MULTIRECORD 


RETRIEVE 
SIMULATED 
RECORD COUNT 


LOAD QR PMX 
IMAGE 
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.EXIT 0 FROM CHANNEL MODULE, EP1 
RETURN STATUS 
DECREMENT 1/0 COUNTS . 
CHECK CC, UNLINK 1/0 ENTRY 
CHECK STATE CHANGE 

REGISTERS 

X1 = TRUE CHANNEL INDEX 


X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = I/O ENTRY 
RETRIEVE X5 = GEPOP LAL 
STATUS WORD 1 X6 = I/O ENTRY PROGRAM 
X7 = PROCESSOR NUMBER 
RETRIEVE SMX1 
AS STATUS 
WORD 2 
TSXO STRET 
STATUS RETURN 
ROUTINE 
© 
AT 
Yes, LEAST 2 ENTRIES 
IN CHANNEL 
QUEUE? 


RELEASE 
CHANNEL 


«SHUTS .CRQGT 


TSX3 STIO 
START 1/0 


Yes 


TRACE IDLE 
CHANNEL 4 
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SET CHANNEL 
BUSY, (-1 1/0 
ENTRY ADDRESS) 


LOAD QR WITH 
PMX IMAGE 
FOR RESS 


IOTRM 
. MIOS 


CPB-1500 


IOTRM 
. MIOS 


. EXIT 1 FROM CHANNEL MODULE EPL 
GEPR RECOVERY REQUIRED, UNLINK 
ENTRY AND SET GEPR STATUS, SET GEPR 
NEEDED STATE 

REGISTERS 


Xl = TRUE CHANNEL INDEX 
X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = I/0 ENTRY 

X5 = GEPOP LAL 

X6 = I/O ENTRY PROGRAM NUMBER 


X7 = PROCESSOR NUMBER 


THRESHOLD 
STATUS? 


INITIALIZE TO 
SET (04)8 ENTRY 
TATUS, ONLY GEPR 


-SHUTS .CRGPR 
AND .CRQGT 
GATES 


LOAD X5 = 
PROGRAM LAL, 
SAVE X1 


TSXO UNLNK 
UNLINK AND 
SET NEW 
ENTRY STATUS 


SET SCT 
STOP FLAG 
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STORE STATUS 


. SHUTS .CRDSP 


WORD 1 IN WORD CATE 


1 OF ENTRY 


RESET RELC 


STORE ABSOLUTE 
DATA ADDRESS STATE TO ZERO 
RESIDUE IN WORD AND SET I/O 


O OF ENTRY ERMINATED STATE 


STORE WORD 
COUNT RESIDUE 
IN WORD 8 

OF ENTRY 


TSX1 .MDISP,8 | 
PUT PCM AT 
TAIL OF QUEUE 


.OPENS .CRDSP 
GATE 


SAVE X2 
AND X4 


REDUCE .SRQCT 
COUNTS FOR 
PROGRAM 


RETRIEVE 
X1,X2,X4 


TS GEPR\_ 
REQUESTED OR 
IN CONTROL? 


SET GEPR 
NEEDED STATE 


.OPENS .CRGPR 
AND 
.CRQGT GATES 
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-EXIT 0 


IOTRM 
. MIOS 


CPB-1500 


Xl 
X2 
X5 
X7 


. SHUTS .CRQGT 
GATE 


GESPECED ENTRIES No 


a: 


FIND FIRST 
GESPECED ENTRY 
IN QUEUE 


RESET GESPEC 
FLAG IN I/0 
ENTRY 


ANYMORE 

GESPECED ENTRIES Yes 
LINKED ON~ 
CHANNEL? 


No 


RESET CHANNEL 


GESPEC LINKED 
FLAG 


Is 
I/O ENTRY 
STOPPED? 


Yes 


No 


Is 
CHANNEL 
BUSY? 


Yes 


No. TSX3 STGPC 


.EXIT2 FROM CHANNEL MODULE, EPIL 
SI ON GESPEC ALLOWED CHANNEL 
REGISTERS 


TRUE CHANNEL INDEX 

LOGICAL PRIMARY CHANNEL INDEX 
GEPOP LAL 

PROCESSOR NUMBER 


SET SI FLAG 
FOR CHANNEL 


.OPENS .CRQGT 
GATE 


START 1/0 
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LOOK FOR 
MORE 
INTERRUPTS 


CPB-1500 


IOTRM 
. MIOS 


. EXIT 3 FROM CHANNEL MODULE, EP1 
SI, NO ACTION REQUIRED 
REGISTERS 

X5 = GEPOP LAL 

X7_ = PROCESSOR NUMBER 


i ete es 7 LOOK FOR 
Re MORE INTERRUPTS 


EXIT 4 FROM CHANNEL MODULE, EP1 
II, TI BUT NO I/O ENTRY TO RETURN 
REGISTERS 

Xl = TRUE CHANNEL INDEX 


X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = I/O ENTRY WHICH WAS ACTIVE 
X5 = GEPOP LAL 


X7 


PROCESSOR NUMBER 


.EXITS FROM CHANNEL MODULE, EP1 
SI, ATTEMPT TO START I/O 

REGISTERS 

X2 = LOGICAL PRIMARY CHANNEL INDEX 
X5 = GEPOP LAL 

X7 = PROCESSOR NUMBER 


TSX3 STIO 
START 1/0 AND 
LOOK FOR MORE INTERRUPTS 
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IOTRM 
. MIOS 


STORE TRANSFER 
IMING STATUS IN 
WORD 1 TO FORC 


GEPR_REISSUE 


. SHUTS ,CRQGT 


GATE 


TSX3 TYPER 
START 1/0 


EXIT 


Xl 
X2 
X4 


LOOK FOR 
MORE INTERRUPTS 


-EXIT 6 FROM CHANNEL MODULE, EP1 
ERROR THRESHOLD MET ON DS20 SEEK TERMINATION 


REGISTERS 
Xl = TRUE CHANNEL INDEX 
X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = 1/0 ENTRY 
X5 = GEPOP LAL 
X6 = I/O ENTRY PROGRAM NUMBER 
X7 = PROCESSOR NUMBER 


7 FROM CHANNEL MODULE, EP1 


REISSUE SECOND COMMAND 
REGISTERS 


= TRUE CHANNEL INDEX 

= LOGICAL PRIMARY CHANNEL INDEX 
= I/O ENTRY 

= GEPOP LAL 

= I/O ENTRY PROGRAM NUMBER 

= PROCESSOR NUMBER 

= PMX IMAGE 

AND SMX4 ALREADY STORED 
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IOTRM 
. MIOS 


.»EXIT 8 FROM CHANNEL MODULE, EP1 
ERROR THRESHOLD STATUS 
REGISTERS 


X1 = TRUE CHANNEL INDEX 

X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = 1/0 ENTRY 

X5 = GEPOP LAL 

X6 = PROGRAM NUMBER OF I/O ENTRY 


X7 = PROCESSOR NUMBER 


INITIALIZE TO 
SET (40)8 ENTR 

STATUS, ONLY 
THRESHOLD 


.SHUTS .CRGPG 
.CRQGT GATES 


TSXO UNLINK 
UNLINK AND 
SET NEW ENTR 
STATUS 


STORE STATUS 
WORD 1 IN ENTRY 
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IOTRM 
. MIOS 


9SA OPTION? 


TURN OFF 
OPTION FLAG 


RETRIEVE DCWP 
AND ADJUST FOR 
10c LIMITS 


STORE DATA 
ADDRESS RESIDUE 
IN ENTRY 


STORE AS DATA 
ADDRESS RESIDUE 
IN ENTRY 


STORE WORD 
COUNT RESIDUE 
IN ENTRY 


LOAD X5 WITH 
PROGRAM LAL 
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IOTRM 
. MIOS 


.EXIT 9 FROM CHANNEL MODULE, EP1 
GEPR RECOVERY REQUIRED 
MULTIRECORD SIMULATION 
REGISTERS SAME AS X-1 


RETRIEVE QR WITH 

MODIFIED STATUS| 

WORD 1 CONTAINING 
RESIDUE 


STORE NEW STATUS 
WORD 1 IN COMMON 
I0S CELL SR1 


RESTORE Pars ere 


IoC COMMAND IN 
PMX IMAGE IN 
1/0 ENTRY 


—— —] NORMAL GEPR EXIT LOGIC 
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IOTRM 
. MIOS 


. EXIT. 10 FROM CHANNEL MODULE, EP1 
ERROR THRESHOLD MET 

MULTIRECORD SIMULATION 

REGISTERS SAME AS X-8 


RETRIEVE STATUS 
WORD 1 CONTAINING 
RECORD COUNT 
RESIDUE 


STORE IN COMMON 


IOS CELL Sk1l 


&-8)— — “7 7 7 NORMAL THRESHOLD LOGIC 


-EXIT 11 FROM CHANNEL MODULE, EP1 
MULTIRECORD SIMULATION COMPLETE 
RETURN STATUS 

REGISTERS SAME AS X-0 


RETRIEVE STATUS 
WORD 1 FROM 
. STEMP+8 5 


See ee —[ NORMAL STATUS RETURN LOGIC 
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COUNT IN QR 
AND STORE IN 
.CRSM3,1 


USING ABSOLUTE! 
DCWP+1 IN SMX2, 
RETRIEVE NEXT DCW 
AND STORE IN 
.CRSM1,1 


STORE NEW 
ABSOLUTE DCWP+1 
IN .CRSM2,1 


STORE ABSOLUTE 
DCWP IN .CRSM4,1 


-SHUTS .CRQGT 
GATE 


TSX3 STIOM 
START 1/0 


IOTRM 
. MIOS 


EXIT 12 FROM CHANNEL MODULE, EP1 
MULTIRECORD SIMULATION 

ISSUE NEXT CONNECT 

REGISTERS 


X1 = TRUE CHANNEL INDEX 

X2 = LOGICAL PRIMARY CHANNEL INDEX 
X4 = 1/0 ENTRY 

X5 = GEPOP LAL 

X6 = PROGRAM NUMBER 

X7 = PROCESSOR NUMBER 

QR = PMX FOR CONNECT 


167 CPB-1500 


IOTRM 
. MIOS 


.EXIT 13 FROM CHANNEL MODULE, EP1 
NEXT CONNECT, CPZ100 PUNCH 
MULTIRECORD SIMULATION 


REGISTERS 
X1 = TRUE CHANNEL INDEX 
X2 = LOGICAL CHANNEL INDEX 
X4 = 1/0 ENTRY 
X5 = GEPOP LAL 
X6 = PROGRAM NUMBER 


X7 = PROCESSOR NUMBER 


RETRIEVE 
COMMAND FROM 
.CRSM3,1 
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UNLNK 
. MIOS 


UNLINK I/O ENTRY 


UNLNK 


LOAD X1 WITH 


FORWARD POINTER 
OF I/O ENTRY 


LOAD X3 WITH 
BACKWARD POINTER 
OF I/O ENTRY 


STORE X1 (FORWARD 
POINTER) IN 
CHANNEL FORWARD 
POINTER (.CRCT2) 


Is 
ENTRY FIRST IN 
Q? 


Yes 


STORE Xl (FORWARD 
POINTER) IN 
PREVIOUS QUEUE 

ENTRY 
FORWARD POINTER 


STORE X3 (BACKWARD 
POINTER) IN 
CHANNEL BACKWARD 
POINTER (.CRCT3) 


STORE X3 (BACKWARD 
POINTER) IN 

IN NEXT QUEUE ENTRY 

BACKWARD POINTER 


MASK OUT 
UNWANTED BITS 
IN WORD 0 OF 

I/O ENTRY 


INSERT NEW 
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ILPCX 
. MIOS 


CALCULATE LOGICAL PRIMARY CHANNEL INDEX 


ILPCX 


Is 
Yes DEVICE SCT ON No 
ULTIDEVICE 
CHANNEL? 
Nz 


EXTRACT INDEX 
FROM CHARACTERS 
4-5 OF WORD O OF 
DEVICE SCT 


CALCULATE INDEX 
=SCT ADDRESS 
~.CRCT1 


X2=INDEX 
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STRET 


SAVE XO, 
TRANSFER 
REGISTER ° 
IN STACK 


TRACE STRET 
ENTRY 


Is No 
STATUS RETURN PTR 
PRESENT? 
Yes 


STORE STATUS 
WORD 1 VIA 
STATUS RETURN 
PTR 


§sA DCWP OPTION-—NO__1 


RELATIVIZE 
DCWP+1 FROM 
SMX2 


STORE STATUS 
WORD 2 
(ADJUSTED) 


STATUS RETURN 


RELATIVIZE 
DATA ADDRESS 
FOR MORE 
THAN 1 SSA 


RELATIVIZE 
DATA ADDRESS 
FOR SLAVE 


RELATIVIZE 
DATA ADDRESS 
FOR 1 SSA 


STORE STATUS 
WORD 2 


(5-21 © ENTRY STATUS 
CEPR? 
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STRET 
. MIOS 


CPB-1500 


STRET 
. MIOS 


SET STATE BIT 
27-1/0 
TERMINATED 


. SHUTS .CRQGT 
GATE 


SAVE Xl WHICH 
WILL BE DESTROY 
BY UNLNK 


D 


SET UP FOR 
NEW ENTRY STATUS 
OF BUILDING 


SET I/O ENTRY 
STATUS CC 


TSXO UNLNK 
UNLINK ENTRY 
AND 
SET STATUS 


. SHUTS .CRCCS 
GATE 


RETRIEVE 
Xl 


CHANGE CC 
SWITCH TO NOP, 
ZERO COUNT 


-OPENS .CRQGT 
GATE 


LINK ENTRY 
INTO TAIL OF 
CC QUEUE 


CHANGE GEPR 
STATUS TO 
BUILDING 


SET CC WAITING 
STATE BIT 
FOR PROGRAM 


INCREASE BOTH 
I/O COUNTS 
FOR PROGRAM 
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INCREMENT COUNT 
OF CC WAITING 
FOR PROGRAM 


INCREMENT COUNT 


IN CC SWITCH 


Yes 18 


ROADBLOCK STAT 


SET? 


No 


RESET 
, ROADBLOCK 
STATE 


TRACE 
ROADBLOCK 
7 BROKEN 


SET I/0 
ENTRY STATUS 
OPEN 


. SHUTS .CRDSP 
GATE 


SAVE REGISTERS 
DESTROYED BY 
DISPATCHER 


REDUCE BOTH 
1/0 COUNTS 


Is 


DRELINQUISH STATE 


SET? 


Yes 


RESET 
RELINQUISH 
STATE 


TRACE 
RELINQUISH 
BROKEN 
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No 


STRET 
. MIOS 


CPB-1500 


STRET 
. MIOS 


TSX1 .MDISP,14 
ENTER PROGRAM 
IN TAIL OF 
DISPATCHER QUEUE 


RESTORE 
REGISTERS 


-OPENS .CRDSP 
GATE 


TRACE LEAVING 
STRET 


RELOAD XO 
FROM STACK 
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STIO 
. MIOS 


START 1/0 


.CRQGT GATE 
IS SHUT 


SAVE TRANSFER 
REGISTER 


TRACE ENTRY 


LOAD X1 WITH 
TRUE CHANNEL 
INDEX 


TSXO (SELECT 
ROUTINE) EP3 
IN CHANNEL 
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TRA 0,0: 
USE NORMAL SELECT 
ROUTINE IN SITO 


Go Gy! SUBPROGRAM 
Se 


ANY 
ENTRIES IN CHANNEL 


Is 
CHANNEL 
BUSY? 


Is 


IS NEXT 
CHANNEL PRIMARY 
CROSSBAR? 


No 


176 


SNNEL . THERE AN ELIGIBLE 
CROSSBARRED ENTRY? 
Yes 


CPB-1500 


LOAD REGISTERS 
X5 = PROGRAM 
LAL 
X6 = PROGRAM 
NUMBER 


FILE PRIORI 
FLAG IN .SGEPR+1,5 
SET} 


Yes 


Is 
SELECTED CHANNEL 
SAME AS PRIORI 

a 


Yes 


EXTRACT PRIORITY 
REQUEST DEVICE 
INDEX 


INITIALIZE 
TO SEARCH 
CHANNEL QUEUE 


PRIORITY DEVICE IN 


No 


No 


Yes 


No 


PRIOR 


1s 
PRIORITY ENTRY 
STOPPED, GESPECED, OR 
IN TRANSMISSION? 


SET FLAG TO 
INDICATE PRIORITY 
ENTRY SELECTED 


SET X4 = SELECTED 
PRIORITY ENTRY 


Yes 
” 
Is 
CHANNEL No 
MULTIDEVICE? 
1S Yes 
DEVICE ALREADY 
BUSY? 
No 
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STIO 


. MIOS 


CPB-1500 


STIO 
. MIOS 


Is 
CHANNEL 
PRESELECTED? 


Yes 


No 


Is 
CHANNEL STOPPED? 


Is 
CHANNEL 
CROSSBARRED? 


RETRIEVE 
SELECTED CHANNE 
INDEX (SMX3 
IMAGE ) 


Is 
IT GEPR 
REISSUE? 


No 


Yes 


RESET CHANNEL 


STOP FLAG 


Is 
CHANNEL 
STOPPED?, 


Is 
CHANNEL 
BUSY? 
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RESET SMX3 
IMAGE INDEX 
TO ZERO 


LOAD X1 
TRUE CHANNEL 
INDEX 


SPECIAL 
GEPR COMMAND? 


RETRIEVE SELECTED 

TRUE CHANNEL | 

INDEX FROM SMX3 
AND RESET 


STIO 
. MIOS 


RETRIEVE 
ORIGINALLY 
SELECTED ENTRY 
ADDRESS AND 
ZERO FLAG 


MORE ENTRIES IND 


AHI, 2,0 


RETRIEVE RETUR 
REGISTER 


-OPENS .CRQGT 
GATE 
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STIO 
. MIOS 


LOAD X5 
GEPOP LAL 


LOAD X5 WITH 
PROGRAM LAL 


TRACE EXIT 


RETURN 
TO 
CALLER 
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STIO 
. MIOS 


TRA 3,0: 
ISSUE SEEK 

FOR DSU200 I/O ENTRY, 
QR CONTAINS PMX IMAGE 


LOAD FLAG 
FOR SEEK 
MATLBOXES 


TRA 4,0: 
ISSUE R/W 

FOR DSU200 I/O ENTRY, 
QR CONTAINS PMX IMAGE 


LOAD FLAG 
FOR R/W 
MAILBOXES 


TRA 5,0: 
SELECT ROUTINE 

FOR MULTIRECORD 
ALLOWED CHANNELS 


ULTIRECORD 
IMULATION?} 
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STIO 
. MIOS 


GET LOGICAL 
CHANNEL INDEX 
FOR SELECTED 
TRUE CHANNEL 


SET I/O ENTRY 
STATUS, I0S 


STATUS IN 
TRANSMISSION 


LOAD FLAG 


FOR NORMAL 
MAILBOXES 


SET CHANNEL 
BUSY (1/0 


ENTRY ADDRESS) 


LOAD X6 WITH 
I/O ENTRY 
PROGRAM NUMBER 


INCREASE 
PROGRAM 


OUTSTANDING 
I/O COUNT 


TRA 2,0 
I/O ENTRY HAS BEEN 
SELECTED TO START 


| RETRIEVE | 


RANSFER REGISTER 


-OPENS .CRQGT 
GATE 


LOAD X5 WITH 
1/0 ENTRY 
PROGRAM LAL 


ABSOLUTIZE 
DCWP IN SMX4 
IMAGE AND 
STORE IN SMX4 


STORE SMX3 
IMAGE IN 
SMX3 
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PICK UP SCT 
POINTER 
FROM 1/0 ENTRY 


MASK DEVICE 
NUMBER FROM 
SCT ENTRY 


INSERT DEVICE 
NUMBER INTO 
SMX3 


4 


PICK UP 
CHANNEL SCT 
ENTRY 


MASK CHANNEL 
NUMBER FROM 
CHANNEL SCT 
ENTRY 


INSERT CHANNEL 
NUMBER INTO 
SMX3 


LOAD QR WITH 
DEVICE AND 
CHANNEL NUMBERS 
FROM SMX3 


TO BE CONNECTED? 


OR SEEK COMMAND 
FROM CHANNEL 


MODULE TO QR 
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STIO 
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OR PMX 


IMAGE OF 1/0 
ENTRY TO QR 


LOAD AR WITH 
FIRST DCW 


LOAD X2 WITH 
ABSOLUTE DCWP+1 


STORE AR 
(FIRST DCW) 
IN SMX1 


LOAD XO WITH 
ABSOLUTE DCWP+1 
(WORD 6) 


Yes (20) 
* 


CPB-1500 


ZERO 
LIMITS 
FLAG 


DOES 
X2 LIE IN 
SSA? 


No 


SET SSA AND 
SA LIMITS IN 
SMX2 


STORE ABSOLUTE 
DCWP+1 (X2) IN 
SMX2 


COUNT TOTAL 
CONNECTS ON 
CHANNEL 


COUNT TOTAL 
CONNECTS 


No 


COUNT TOTAL 


CONNECTS ON 
DEVICE 


DOES SEEK 
ADDRESS HAVE TO 
BE STORED? 


No 


Yes 


BTORE SEEK ADDRESS) 
FROM PMX IMAGE 


INTO SLAVE AREA 
USING SMX1 DATA 
ADDRESS 


POSITIVE 
LIMITS 
FLAG 


NEGATIVE 
LIMITS 
FLAG 


SET MASTER 
LIMITS IN 
SMX2 


SET SA SET ADJUSTED 
LIMITS IN 


SMX2 


LIMITS IN 
SMX2 


DETERMINE 
TOC NUMBER 


DETERMINE PMX 
INDEX FOR IOC 


No 
STORE QR 
IN PMX 
CONNECT 
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STORE .CRTOD 
IN CHANNEL TABL 
(TIME OF CONNECT) 


TRACE CONNECT 
AND LENGTH OF 
QUEUE 


PRESELECTED 
CHANNEL? 


STORE TRUE 
CHANNEL INDEX 
INDEX IN SMX3 
IMAGE IN ENTRY 


TRACE 
EXIT 


SEEK OR R/W 
MAILBOXES 


BYPASS 
SMX3 
STORAGE 


LOAD X2 
ABSOLUTE DCWP+1 
FOR R/W 


LOAD, AR WITH 
FIRST DCW 
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STIO 
. MIOS 


MULTIRECORD 
SIMULATION 
SELECT 
ROUTINE 


IS 
CHANNEL 
STOPPED? 


FIND FIRST 1/0 
ENTRY, NOT 
STOPPED, NOT 
GESPECED, LINKER 


TSX3 SUBR 
ADJUST 1/0 
ENTRY 


CPB-1500 


STIO 
. MIOS 


MULTIRECORD 
COMMAND? 


Yes 


CPZ100 
PUNCH? 


STORE ORIGINAL 
RECORD COUNT 
IN 1/0 ENTRY 


RESET MULTIRECORD 
[OC COMMAND, RECORD 
COUNT TO SPECIAL | 
CARD PUNCH COMMAND 
AND RECORD COUNT 


RESET 
MULTIRECORD I0C 
COMMAND TO UNIT 
RECORD COMMAND 


SET MULTIRECORD 
SIMULATION FLAG 
IN 1/0 ENTRY 
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STIOM 
. MIOS 


CONNECT MULTIRECORD SIMULATION DCW 


ENTRY CONNECT FOR MULTIRECORD 
SIMULATION 

MAILBOXES STORED 

QR CONTAINS PMX 


STORE TRANSFER 
REGISTER 
TRACE ENTRY 


RETRIEVE 
TRANSFER 
REGISTER 


-OPENS .CRQGT 
GATE 
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TYPER 
. MIOS 


CONNECT REISSUE OF SECOND TYPEWRITER COMMAND 


ENTRY TO CONNECT 
REISSUED READ 

ON CONSOLE 

QR CONTAINS 

PMX 


SAVE TRANSFER 
REGISTER 
TRACE ENTRY 


RETRIEVE 
TRANSFER 
REGISTER 


OPEN GATE 
. CRQGT 


STORE FIRST 
READ DCW 
IN SMX1 


LOAD X2 
ABSOLUTE DCWP+1 
FOR READ 
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STGPC 
. MIOS 


CONNECT SELECTED GESPECED ENTRY 


ENTRY TO 
CONNECT 

GESPECED 
I/O ENTRY 


STORE TRANSFER 
REGISTER 
TRACE ENTRY . 
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RSMIO (EP8) 


. MIOS 


RESUME 1/0 FOR PROGRAM 


RSMIO 


LOAD X4 WITH 
ABSOLUTE ADDRESS 
OF FIRST 1/0 
ENTRY 


LOAD TALLY 
CONTROL WITH 
NUMBER OF 1/0 
ENTRIES AND ZERO 
TERMINATION 
CONDITION 


SEARCH 
OR STOPPED I/O 
ENTRY? 


Tally on 


RESET STOP 
BIT 


COUNT EXHAUSTED? 


INITIALIZE 
FOR FIRST IOC 
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INITIALIZE FOR 
FIRST CHANNEL 


CALCULATE TRUE 
CHANNEL INDEX 


Is 
CHANNEL 
BUSY? 


Yes 


CHANNEL CONFIGURED? 


SAVE REGISTERS 
IN .STEMP 


GET LOGICAL 
CHANNEL INDEX 
FOR TRUE CHANNEL 


Yes 
LOGICAL CHANNE (2-4) 
ECONDARY? 


No 


CPB-1500 


RSMIO (EP8) 


. MIOS 


.SHUTS .CRQGT 
GATE 


INCREMENT 
TOC NUMBER 


RELOAD LAL 
DESTROYED BY 
SYSTEM GATE 


TSX3 STIO 

START 1/0 
FOR LOGICAL 
CHANNEL 


RELOAD PGMNO 
IN X6 


RELOAD LAL 


RETRIEVE 
REGISTERS 
FROM .STEMP 


INCREMENT 
INDEX FOR NEXT 
TRUE CHANNEL 
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ABTIO (EP9) 


. MIOS 


ABTIO 


1 


LOAD X4 ABSOLUT 
ADDRESS SYSTEM 
ENTRY IN SSA 


LOAD X3 NO. OF 


I/O ENTRIES = 
(.SNIO,5)+1 


CAN 
I/O ENTRY BE 
ABORTED? 


Is 
STATUS 
LINKED? 


1 Yes 
TATUS COURTESY r (1-4) 
CALL? 


Yes (19 


DECREMENT COUNT 
OF ENTRIES 


HAVE 
ALL BEEN 
EXAMINED? 


= 


INCREMENT X4 
TO NEXT 
I/O ENTRY 


ABORT 1/0 FOR PROGRAM 


__| LINKED 
ea > STATUS 


TSXO ILPCX 

CALCULATE 
LOGICAL PRIMARY 
CHANNEL INDEX 


. SHUT '. CRQGT 


RESET CHANNEL 
GESPEC 


TSXO UNLNK 
UNLINK 1/0 
ENTRY SET 

OPEN 


-OPEN .CRQGT 
GATE 


REDUCE 
REQUEST COUNT 
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. SHUT .CRCCS 
GATE 


SET I/O ENTRY 
STATUS OPEN 


Is 
ENTRY LAST INCC 


as 2 


No 


Is 
NTRY FIRST CC 
QUEUE? 


No 


UNLINK 


EMBEDDED ENTRY 


REDUCE COUNT 


IN CC SWITCH 


REDUCE SLAVE 


cc COUNT 


Yes 


COURTESY 
CALL 
STATUS 


Yes 


Yes 


STATE 


RESET SLAVE 
> CC WAITING 


18 
ENTRY ALSO 
FIRST? 


Yes 


UNLINK 
ONLY ENTRY 


RESET CC 
SWITCH TO 
BYPASS TEST 


UNLINK FIRST 


ENTRY 


-OPEN .CRRCCS 


GATE 
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No 


UNLINK 


LAST ENTRY 


ABTIO (EP9) 


. MIOS 


CPB-1500 


ABTIO (EP9) 


e MIOS 


IS 
GEPR IN 
CONTROL? 


RESET ANY STOP 


FLAGS ON 
ASSOCIATED SCTS 


STATUS COURTESY —£5 


RESET 
EXCHANGE FLAG 


RESET 
EXCHANGE FLAG 


.CALL .MIOS,10 
RETURN STATUS 
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Is 
GEPR IN 
CONTROL? 


EP8 TO 
RESUME 1/0 


No RSMIO ee 


RESET GEPR 
IN CONTROL 
STATE 


: S THERE 
A_ CURRENT GEPR 
ENTRY? 


Yes 


S GEPR 


ENTRY LINKED or cc 22S 


STATUS? 


No 


DO 
NOT ABORT 
STATUS? 


No 


.CALL .MIOS,10 
TO RETURN STATUS 


RESET STOP 
FLAG ON ANY . 


ASSOCIATED 
SCTS 
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ABTIO (EP9) 


. MIOS 


CPB-1500 


GSTRT (EP10) 
. MIOS 


FORMAT 1/0 STATUS WORDS AND RETURN STATUS 


GSTRT 


SAVE XO AND X3 
IN STACK 


TSXO ILPCX 
CALCULATE LOGICAL 


RETRIEVE STATUS 
WORDS 1 AND 2 
FROM I/O ENTR 


TSXO STRET 
RETURN STATUS 


RETRIEVE 
REGISTERS 
FROM STACK 


196 


CPB-1500 


RSMCH (EP12) 


. MIOS 


RESUME 1/0 ON CHANNEL 


RSMCH 


TSXO ILPCX 
CALCULATE 
LOGICAL PRIMARY 
CHANNEL INDEX 
IN X2 


.SHUTS .CRQGT 


TSX3 STIO 
START 1/0 FOR 
LOGICAL CHANNEL 
(X2) 


RESTORE 
X5,X6 
RETURN 0 


197 CPB-1500 


ACTFL 


SHUT .CRACF 
GATE - 


ACCOUNTING FILE,—¥° 
CONFIGURED? 
Yes 
No 
Yes 


SAVE REGISTERS 


INTERNALLY 


ALCULATE NUMBER 

OF WORDS LEFT 
IN CURRENT 
BUFFER PLUS 1 


CALCULATE LENGTH 
OF USER LOGICAL 
RECORD WHEN 

COMPLETE 


ACCOUNTING FILE REQUEST 


FORCE TO 
MAXIMUM SIZE 
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Yes 


ENOUGH 
ROOM IN CURRENT 
BUFFER? 


No 


FORMAT AND 
STORE GEFRC 
RECORD CONTROL 
WORD 


MOVE USER 
LOGICAL RECORD 
TO CURRENT 
BUFFER 


UPDATE CURRENT 
POSITION IN 
. CRACF+3 


RELOAD 
REGISTERS 


OPEN .CRACF 
GATE 


CPB-1500 


<P = 
No 
¥ ‘3 
~ TIS 
SET WRITE CALLER THE 
FLAG \ INTERRUPT 
HANDLER ? 


UPDATE BLOCK 
SERIAL NUMBER RELOAD 


REGISTERS 


AND INSERT 
INTO BUFFER 


v 


CALCULATE LENGTH 
OF PHYSICAL OPEN .CRACF 
RECORD AND GATE 

STORE IN DCW 


\J 


STORE LENGTH 
OF PHYSICAL 
RECORD DATA IN 
WORD O OF RECORD 


RESET STOP 
FLAG ON GEPOP 
1/0 ENTRY 


CALCULATE 
LOGICAL CHANNEL 
INDEX IN X2 


. SHUTS .CRQGT 


TSX3 STIO 
START I/0 


SET ALTERNATE 
BUFFER AS 
NEW CURRENT 
BUFFER 


Yes RELOAD 
REGISTERS 


INITIALIZE 
CURRENT POSITION 
FOR CURRENT 

BUFFER 


COUNT RECORD 


AS LOST 


SET BUFFER 
JUST WRITTEN 
AS ALTERNATE 

BUFFER 


LOAD X1 
WITH ADDRESS 
OF CURRENT 
LOGICAL RECORD 
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ACTFL (EP13) 


. MIOS 


REQUESTING 
COURTESY CALL 
AT ACFCC 


CPB-1500 


COURTESY 


CALL PAID eS 
WHEN 1/0 


COMPLETE 


ACFCC = 


IS 
STATUS 
ABORT? 


STORE CURRENT 
BUFFER ADDRESS 
IN DCW 


CHANNEL 
READY? 


SET ERROR 
ENTRY IN 


STORE DCW 
POINTER AND 


BUILDING STATUS RETURN 
STATUS POINTER OFFSETS 


.CALL .MACTS,2 SET STOP 
OF TAPE? V EXCHANGE FLAG ON 
TAPE IN ENTRY 

Yes 


UPDATE BLOCK 
SERIAL NUMBER 
IN .CRACF AND 

STORE IN 
PHYSICAL RECORD 


.CALL .MACTS, 


EXCHANGE 
TAPE 


RESET ANY RELATIVIZE 
A GEPR RESIDUE I/O ENTRY 
IN ENTRY ADDRESS 


- QUEUE 


. LINKF 
GET AN 


LINK ENTRY 
FIRST 


I/O ENTRY 


. GENDC 
.GRELC END COURTESY 
CALL 


Yes 


STORE 
INITIALIZED 


SKELETON 
IN ENTRY 
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MAIN 10S MODULE 


SET UP .CRLIT 
FOR LOST 
INTERRUPT CHECK 


INITIALIZE FOR 
ACCOUNTING FILE 


CALCULATE 
ABSOLUTIZING 
FACTOR 


IOCB CONFIGURED? 


Yes 


SET UP MULTIRECORD 
SIMULATION LOGIC 


SIMULATION IN 
SLAVE MODE? 


SET UP CONNECT 
AND INTERRUPT 
BIMULATION LOGIG 


ABSOLUTIZE HARDCORE 
INSTRUCTIONS WITH 
REGISTER 
MODIFICATION 


. 10S 
. MIOS 


INITIALIZATION 


ABSOLUTIZE 
ADDRESSES WITHIN 
ASSEMBLED 
INTERRUPT VECTOR 


Is 10C 
CONFIGURED? 


MOVE INTERRUPT 
VECTOR ENTRIES 
TO STARTUP IMAG 


STORE ZEROS IN 
INTERRUPT VECTOR 
ENTRIES IN 
STARTUP IMAGE 


CPB-1500 


INITIALIZE FOR 


FOR I0C 


INITIALIZE FOR 


FIRST CHANNEL 


INCREMENT 
(+) INDEX FOR 
NEXT CHANNEL 


CAN 
CHANNEL BE 
USED? 


No 


Yes 


CPZ100 PUNCH? 


Yes 


SET CPZ100 
PUNCH FLAG 


DRL 
SYSTEM 
ERROR 


MATCH No 
TYPE CODE IN TABLE 
TO.GET MODUL 
NUMBER 


Match 


Is 
MODULE ALREADY Yes 


STORE MODULE 
NUMBER IN LIST, 
INCREMENT COUNT 


Yes 


LOAD AR 
RETURN 
INFORMATION 


SIMULATION IN 
LAVE MODE? 
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CPB-1500 


I0CB 
CONFIGURED? 


No 


Mi 


CPZ100 
PUNCH CONFIGURED? 


SET UP MULTIRECORD 
SIMULATION LOGIC 


LOAD QR WITH 
SLAVE SIMULATION 
LOAD ADDRESS 


TRA 0,1 


Yes 


SLAVE MODE 
SIMULATION 
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. 10S 
. MIOS 


LOAD QR WITH 
MULTIRECORD 


SIMULATION 
LOAD ADDRESS 


SET UP MULTIRECORD 
SIMULATION 


LOAD QR WITH 
NORMAL LOAD 
ADDRESS 


CPB-1500 


CPIT (EP1) 


.MCPIO 


CARD PUNCH 


CPIT 


SPECIAL No 
INTERRUPT? 
Yes 

No 


RETRIEVE ERROR 
RATIO AND RESET 
TO ZERO 


DEVICE 


STORE ERROR 

RATIO IN I/O 
ENTRY AND SET 
THRESHOLD STATUS 


INTERRUPT HANDLER 
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GEPR 
OVERRIDE? 


p RETURN 0 
RETURN 8 


DATA ALERT? 


TRANSFER 
TIMING? 


COUNT TRANSFER 
TIMING ERRORS 


OVERRIDE? 


COUNT CHANNEL 
ERRORS 


CPB-1500 


CPIT (EP1) 


.MCPIO 


REDUCE RECCNT 
IN WORD 10 OF 
I/O ENTRY 


GEPR 
OVERRIDE? 


RETURN 1 RETURN 13 


MULTIRECORD 
SIMULATION 
WITH ERROR STATUS 


MULTIRECORD 
SIMULATION 
WITH OK STATUS 


MULTIRECORD 
COMMAND? 


CPZ100 
PUNCH? 


RETRIEVE 
RECCNT FROM 
SMX3 AND 
DECREMENT 
BY 1 


RETURN 12 
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CPIT (EP1) 


. MCPIO 


I0CB 
MULTIRECORD 
SIMULATION 

WITH ERROR 


CPZ PUNCH 
ERROR 


RETRIEVE RECCNT RETRIEVE RECCNT 


IN WORD 10 OF FROM SMX3 
I/O ENTRY AND AND DECREMENT 
DECREMENT BY 1 BY 1 


RESTORE PMX 
IMAGE IN ENTRY 
TO ORIGINAL 
MULTIRECORD 
COMMAND 


GEPR 
OVERRIDE? 


RETURN 9 


RETURN 11 
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CPIO (EP2) 


. MCPIO 


CARD PUNCH REQUEST 


CP1O 


LOAD AR 
WITH 1/0 
COMMAND 
FROM SS 


ae paciaas| 


Yes TO SEARCH NORMAL 
DATA TRANSFER 
TABLE 


LOAD REGISTERS 
TO SEARCH CPZ100 
DATA TRANSFER 
TABLE 


LOAD REGISTERS 
TO SEARCH NONDATA 
TRANSFER TABLE 


RETURN 6 


BULL PUNCH CPZ100 
DATA TRANSFER 
Y SINGLE COMMAND 
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DATA TRANSFER, 
y MILTIRECORD 


BULL PUNCH 
DATA TRANSFER 
NON MULTIRECORD 


RESET 1/0 

COMMAND TO 
UNIT RECORD 
TRANSFER 


CPZ100 OR 
MULTIRECORD 


NONDATA 
TRANSFER 


RETURN 2 


NONDATA 
Y_ TRANSFER 


CPB-1500 


-ICPIO 
. MCPIO 


CARD PUNCH 


LOAD X2 WITH 
CHANNEL MODULE 
ADDRESS 


INITIALIZE 
FOR IOC-0 


INITIALIZE 
FOR 16 
CHANNELS 


CALCULATE 
FIRST LOGICAL 
CHANNEL INDEX 


CPZ100 
PUNCH CONFIGURED? 


Yes SET CPZ100 


FLAG 


STORE X2 
P\(MODULE ADDRESS) 
IN .CRCT4 


FLAT BED BULL 


ALL 
CHANNELS 
X AMINED} 


INCREMENT 
FOR NEXT IOC 


INCREMENT 
INDEX FOR NEXT 
CHANNEL 


ALL I0C 
EXAMINED? 


INITIALIZATION 


LOAD AR ZERO 
(NO REQUIRED 
MODULES) 


CPZ100 
PUNCH FLAG 
SET? 


Yes 


LOAD QR NORMAL 
LOAD ADDRESS 


INITIALIZE 
MULTIRECORD 
WITHIN CPZ100 
SIMULATION CODE 


INITIALIZE 
MULTIRECORD 
SIMULATION 
WITHIN EP1 
ROUTINE 


LOAD QR CPZ100 
ONLY LOAD 
ADDRESS 


LOAD QR ALL 
SIMULATION 
LOAD ADDRESS 


RETURN 


CPB-1500 


DRIT (EP1) 


. MDR20 


MDS200 INTERRUPT HANDLER 


SPECIAL 
INTERRUPT 
2 


NTERRUPT. 
FROM SPECIALSY_NO_» 
DRUM RESET 

2 


Yes 


SAVE DRUM 
ANGLE FOR 


SELECT 
ROUTINE 


RELEASE 
CHANNEL 


+, 


RETURN 5 


RETRIEVE AND 
RESET DEVICE 
ERROR RATIO 


Yes _5f RETURN 3 


DEVICE 
ERROR No 
THRESHOLD D 
UXCEEDED 
? 


Yes 


STORE RATIO 
IN I/O ENTRY 


SET THRESHOLD 
STATUS 


CHANNEL Yes. ©) 
READY ? 


RECOVERY 
REQUESTED? 


Yes 
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DRIT (EP1) 


. MDR20 


DCWS 


GENERATED 
2 


ZERO GEPR 
GENERATED 
DCWS 


GEPR 


OVERRIDE 
? 


RETURN 0 


THRESHOLD 
STATUS? 


RETURN 8 


DATA 
ALERT? 


TRANSFER 
TIMING? 


COUNT TOTAL 
TRANSFER 


TIMING 


210 CPB-1500 


GEPR 
OVERRIDE? 


RETURN 0 


COUNT DEVICE 
AND CHANNEL 
ERROR 


GEPR 
OVERRIDE? 


GEPR 
OVERRIDE 
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DRIT (EP1) 


. MDR20 


CPB-1500 


DRIO (EP2) 


. MDR20 


MDS200 REQUEST 
dee REQS / 
LOAD AR. 


I/O COMMAND 1 


LOAD X1 
ADDRESS COMMAND 


TABLE 1 


LOAD QR 
DEVICE COMMAND 
MASK 


TRANSFER TO 
COMMAND 
ROUTINE 


DRBSR 


Xl = TABLE 2 
QR = DEVICE I0C 
RECCNT MASK 
REWIND _- LOAD QR 
ZERO FLAG 
Is 
S COMMAND. Yes 


LOAD QR 
POSITIVE 
RECCNT FLAG 


FORWARD 
SPACE 
RECORD 


RETURN 1 


X1 = TABLE 2 
QR = DEVICE 
AND IOC MASK 


LOAD QR 
NEGATIVE 
RECCNT FLAG 


DRBSR 


No 


RETURN 6 


912 CPB-1500 


DRIO (EP2) 


. MDR20 


COMMAND 1 
Sa IS SEEK 


Is 
COMMAND 2 

PROGRAM 
LOAD? 


RETURN 6 


TO COMMAND 
ROUTINE 


DRUM 
COMPARE & 
VERIFY 


READ/ 
ora WRITE 


SAVE ONLY 
DEVICE COMMAND 
FROM COMMAND 2 


INSERT PROPER 
IoC COMMAND 
AND RECCNT 


INSERT BYPASS 
COUNT IN 
I/O ENTRY 
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DRSL (EP3) 


. MDR20 


DRSL 


IS 
CHANNEL 
BUSY? 


ENTRIES 
IN QUEUE? 


Yes 


SAVE 
RETURN 
REGISTER 


CHANNEL 
STOPPED? 


No 


Yes 


ANY 
ENTRY No 
LINKED AND 
NOT STOPPED? 


Yes 


Is 
ITA 
SPECIAL 


LOAD X4 

WITH 
ENTRY 
ADDRESS 


Yes 


> RETURN 2 


MDS200 SELECT 
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INITIALIZE 
TEMPORARY 
CELLS 


INITIALIZE 
CURRENT 
ANGLE 


Is 


THERE 
AN ELIGIBLE 


ENTRY? 


Yes 


No 


LOAD X3 
WITH LINK 
ADDRESS OF 


LAST ENTRY 
EXAMINED 


Yes 


CPB-~1500 


SET FLAG 
TO ISSUE 


RESS FOR 
ANGLE 


RELOAD 
xO 


RETURN 1 


DECREMENT 
ENTRY 
BYPASS 
COUNT 


Is 
IT AT 
THRESHOLD? 


LOAD X4 
ENTRY 
ADDRESS 


Is 


LESS THAN 
CURRENT 


S 
NIRY ANGLE 
LESS THAN 


BEST ANGLE? 
No 


BEST ANGLE 
BEEN FOUND? 


BEEN FOUND? 


SAVE THIS 
ENTRY AS 
FIRST 
ANGLE 
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DRSL (EP3) 


.» MDR20 


CPB-1500 


DRSL (EP3) 


. MDR20 


BEST ANGLE Yes 


BEEN FOUND? 


No 


HAS 
FIRST — 
ANGLE BEEN 
FOUND? 


Ne QUEUE BEEN 


SEARCHED? 


Yes 


IS 
THIS ANGLE 
LESS THAN 
FIRST 
ANGLE? 


Yes 


No 


RELOAD 
».0) 


STORE THIS 
ENTRY AS 


BEST ANGLE 


RETURN 2 


ANY 
MORE 
ENTRIES IN 
QUEUE? 


No 


SEARCH BEEN 
MADE? 


No 
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DRGP (EP4) 


. MDR20 


MDS200 ERROR AND EOF RECOVERY 


MULTIPLY MAXIM 
NUMBER OF BLOCK 
BY 64 WORDS/ 
BLOCK = 
MAX#WDS 


ZERO RESIDUE 


SAVE MAX#WDS 

READ IN STACK 
(X1) AS NEGATIVE 
NUMBER 


CHANGE SR1 TO 
CHANNEL READY 
IN I/O ENTRY 


SAVE X2 
(CHANNEL INDEX) 
IN I/O ENTRY 


PUSH DOWN 
STACK 2 TEMP 
CELLS (X1) 


EXTRACT BLOCK 
COUNT FROM 
SEEK ADDRESS 


RELEASE ANY 
GENERATED DCWS 
IF NECESSARY 


ABSOLUTIZE 
DCW PTR (X4) 


RETURN 2 


INCREMENT 
DCW PTR BY 1 
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DRGP (EP4) 
. MDR20 


LOAD X4 NEXT 
DCWP (RELATIVE) 
FROM TDCW 


ABSOLUTIZE 
DATA ADDRESS 
(QR=TDCW DCW) 


LOAD X4 WITH 
ABSOLUTE DATA 
ADDRESS (NEXT 


NOT A TDCW 
X4 = ABSOLUTE 
NEXT DCWP 
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ADD NEGATIVE 
MAX#WDS IN 
TACK (0,1) AND 
DCW COUNT 


ANY 
WORDS 
LEFT? 


STORE NEXT 
DCW IN STACK 


(0,1) 


INCREMENT 
DCWP (X4) 


CPB-1500 


REBUILD DCW FOR 
WORDS NOT TRANS- 


ITTED, SAVE IN 
STACK (0,1 


EOFRB 


LOAD QR 
WITH ABSOLUTE 
DCW PIR 
Yes 
LOAD Q WITH RELATIVIZE 
TDCW IN LIEU DCWP FOR DATA 
OF MANUFACTURED DCW ADDRESS 
7, 
BULLD TDCW 
N IN QR 
’, 
QR CONTAINS 
TDCW FOR 
CONTINUING 


DATA TRANSFER 


SAVE TDCW 


IN STACK 
a,) 
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ETRIEVE ADJUSTED 
RELATIVE BLOCK 
NUMBER (10,3) 


SAVE 
X1 AND X3 


LOAD X3 
ABSOLUTE PAT 
ADDRESS 


LOAD X2 LOGICAL 
CHANNEL INDEX 
(8,3) 


TSX1 
.CRCT4,2* TO 
CALCULATE 

NEW S.A. 


DRGP (EP4) 


. MDR20 


CPB-1500 


DRGP (EP4) 


. MDR20 


NO MANUFACTURED 
DCWS IN SLAVE 
PREFIX 


STORE NEW SEEK 
ADDRESS IN 1/0 
ENTRY (WORD4) 


Is 
THERE AN 


LOAD QR 
FOWARD TOO 
FAR INDICATOR 


EOFRB 


X4= ABSOLUTE 
LOCATION OF 
SLOT +2 


LOAD X4 
ABSOLUTE DCWP 
FOR R/W 


N\ 
NEY MANUFACTURED 
TDCW POLNT es 
AT PREFI 


STORE OLD TDCW 
(FROM PREFIX) 
IN STACK (1,1) 


STORE 
MANUFACTURED 
DCWS IN SLAVE 
PRRFIX 


MANUFACTURED 
DCW IN STACK 
(1,1); X4 = 

ABSOLUTE DCW R/W 


RELATIVIZE DCWP 
AND STORE IN 
I/O ENTRY, 8 


X4 = X4 + 2 


SET MANUFAC- 
TURED DCW FLAG 
IN I/O ENTRY 


220 CPB-~1500 


DRGP (EP4) 


. MDR20 


ERROR RETURN 
FROM SEEK CAL- 
CULATION ROUTINE 


LOAD X3 WITH 
I/O ENTRY 
ADDRESS 


POP UP STACK 
2 TEMPORARY 
CELLS 


ZERO STATUS 
WORDS STORED IN 
I/O ENTRY 


STORE EOF 
STATUS 
IN ENTRY 


RESET I0S 
STATUS BITS, 
WORD 0 


RELEASE ANY 
GENERATED DCWS, 
IF NECESSARY 


SET SEEK 
COMMAND FLAG 
IN WORD 2 


LOAD X4 WITH LOAD QR 
I/O ENTRY (32) 10 
OFFSET ABORT CODE 


LOAD X3 
WITH LAL 


»CALL 
.MBRT1,5 
MAKE ABORT 
ENTRY 


221 CPB-1500 


NEGATIVE EP 


. MDR20 


MDS200 NEGATIVE ENTRY POINTS 


LLINK, 
ABSOLUTE 
BLOCK NUMBER 


NEGATIVE ae 
EPS 


SHUT GATE 


SAVE Xl 
AND X4 


STORE MAXIMUM 
BLOCK COUNT 
IN ANS 


SET BPL = -5 


ABSOLUTE BLOCK 
NUMBER + 5 = 

#LLINKS, BIKR 
REMAINDER 


STORE #LINKS/ 
#LLINKS IN 
ADEND 


LINK 3 
ABSOLUTE 
BLOCK NUMBER 


NEGATIVE 
EP4 


SHUT GATE 
SAVE Xl 
AND X4 


CALCULATE 
BLOCK COUNT 
AND STORE 


IN_ANS 


SET BPL 
= -60 


(ABSOLUTE BLOCK 
NUMBER + 60 = 
#LINKS, BLKREM 
(REMAINDER) 
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CPB-1500 


NEGATIVE NEGATIVE 
EP2 EP1 


SHUT GATE SHUT GATE 


SET BPL = -5 SET BPL = -60 


SAVE Xl 
AND X4 


SET TEST = 0 
(NORMAL MODE) 


REQUESTED? 
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LINK, 
PAT 


CPB-1500 


NEGATIVE EP 


. MDR20 


REQUESTED BLOCK 
NOT IN CORE 
DESCRIPTION 


GET CURRENT 
BLOCK POSITION 
FROM PAT 


LOAD AR WITH 
BPL AND BLOCK 
WITHIN NEXT 
DESCRIPTOR 


LOAD X 

BEGINNING 
LINK DESCRIPTOR 
ADDRESS 


LOAD QR 
X1-X4 


STORE REQUESTED 
BLOCK WITHIN | 
NEXT DESCRIPTOR 
IN ADEND 


OPEN GATE 


Is 
SPACE 
MEASURED IN 
BLOCKS? 


Yes 
REFRESH PAT 
FORWARD 


MULTIPLY NUMBER EXTRACT NUMBER 


OF LINKS IN OF BLOCKS 
DESCRIPTOR BY FROM PAT 
BPL AND NEGATE AND NEGATE 


SAVE XO 
IN STACK 


ADD REQUESTED 
BLOCK AND THE 
NEGATIVE NUMBER OF 
BLOCKS IN 
DESCRIPTOR 


REQUESTED SHUT GATE 


BLOCK IS 
WITHIN THI 
DESCRIPTOR? 


RETRIEVE 
X1-X4 AND 
SAVE 


DESCRIPTORS 
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RESTORE BPL 


WAS 
REFRESH 
UCCESSFUL? 


SET QR WITH 
ERROR FLAG (TOO 
FAR FORWARD) 


NEGATE NUMBER OF 
BLOCKS REMAININ 
IN DESCRIPTOR 


Yes QR CONTAINS 


OK RETURNS 


REQUIRED? 
(X0) 


SET UP BLOCK 
COUNT FOR 
EMAINING BLOCKS 


GREATER 


THAN 4096 
? 


SET 
MAXIMUM 
BLOCK COUNT 


STORE BLOCK 
COUNT IN 
ANS 


ADD BEGINNING BLOCK 
NUMBER IN DESCRIPTOR 
TO REQUIRED BLOCK 
NUMBER WITHIN 
DESCRIPTION = 
BLKWD 


225 CPB-1500 


NEGATIVE EP 


. MDR20 


RANDOM FILE 
? 


BLOCKS 
= 5? 


ADD 5 BLOCKS 
TO POSITION 
IN PAT 


BLKWDC 

+ BPL = 
LINK OR LLINK 
AND BLKREM 
(REMAINDER) 


LINK + 
BEGINNING LINK 
NUMBER = TOTLNK 


STORE 
BLKREM 
IN ADEND 


ADD NUMBER OF 


POSITION IN 


CTEO8 


LINKS 


Yes 


TOTLNK * 60 
= NUMBER B 


Is 
BLOCK 
LEGAL? 


Yes 


ADD ADEND 


(BLKREM) 
TO BEGBLK 


OR ANS (BLK 
COUNT) TO QR TQ 
ET SEEK ADDRES 
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No 


No 


TOTLNK * 5 
= NUMBER B 


BADNM 


CPB-1500 


LOAD AR 
ZERO 
RESIDUE 


RETRIEVE 
X1 AND X4 


OPEN GATE 


RETURN 1 


LOAD QR WITH 
ERROR FLAG FOR 
BAD BLOCK NUMBER 


LOAD AR 
ZERO 
RESIDUE 
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RETRIEVE 
X1 AND X4 


OPEN GATE 


RETURN 0 


CPB-1500 


INEGATIVE EP 


LINKED FILE 
FSR, BSR 


MULTIPLY NUMBER 
OF RECORDS BY 
5 TO GET #BLKS 


STORE CURRENT 
BLOCK WITHIN 


IN ADEND 


ADD CURRENT 
POSITION 
TO #BLKS 


Sere IN 


LOAD QR ERROR 
FLAG AND 
BACK TOO FAR 
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CPB-1500 


SHIFT NEW 
BLOCK WITHIN 
DESCRIPTION TO 
QR LOWER 


UPDATE CURRENT 
BLOCK WITHIN 


DESCRIPTION IN PA’ 


UPDATE CURRENT 
BLOCK WITHIN 


DESCRIPTION IN PAT 


LOAD XO 
WITH SPACE 
INDICATOR 
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RETRIEVE 
Xl AND X4 
IN AR 


OPEN GATE 


REFRESH 
PAT 
BACKWARDS 


SHUT GATE 


RETRIEVE 
X1 AND X4 


STORE QR 
IN ADEND 
BLOCK POSITION) 


PICK UP CURRE! 
BLOCK WITHIN 


DESCRIPTION FROM PAT 


NEGATIVE EP 


. MDR20 


CPB-1500 


- R20 
. MDR20 


. IDR20 


LOAD X2 
CHANNEL 
MODULE 


INITIALIZE 


I0c-0O 


INITIALIZE 


16 CHANNELS 


CALCULATE 
FIRST LOGICAL 
CHANNEL INDEX 


MDS200 INITIALIZATION 


ADJUST 
COMMANDS FOR 
DUAL COMMAND 


ADJUST 
COMMANDS FOR 
CP COMMAND 


NITIALIZE CODE 
IN EP 2 FOR 
CP COMMAND 


INITIALIZE CODE 
IN EP 2 FOR 
DUAL COMMAND 


LOAD AR = 0 
(NO REQUIRED 
MODULES) 


LOAD QR” 
NEXT 
LOAD ADDRESS 


STORE CHANNEL 
|MODULE ADDRESS 
IN_.CRCT4 


ALL 
CHANNELS 
EXAMINED? 


Yes INCREMENT 
7 10c 


INCREMENT Yes 
INDEX FOR ? 


NEXT CHANNEL 
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CPB-1500 


SPECIAL 
INTERRUPT? 


RETRIEVE AND 
RESET ERROR 
RATIO 


STORE RATIO 
IN I/O ENTRY 
AND SET 
THRESHOLD 
STATUS 


SEEK 
INTERRUPT? 


DSU200 INTERRUPT HANDLER 


Nees RECOVERY 
REQUESTED? 
oi Yes 
DATA No 
ALERT? : 
Yes 
J 
TRANSFERN_ No 


TIMING? 


COUNT TOTAL 
TRANSFER 
TIMING 

ERRORS 


TRANSMISSION yu 
PARITY , INTERNAL} = 
CHECK? 


Yes 


GEPR 
OVERRIDE? 


Yes 
> 


COUNT DEVICE 


AND CHANNEL 
ERROR 


—#@) 


Yes 
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No 


DSIT (EP1) 


. MDR20 


CPB-1500 


DSIT (EP1) 


. MDR20 


GEPR No 


OVERRIDE ? 


GEPR 


Yes 
OVERRIDE? 


No 


r 


RETURN 1 


DCWS 
GENERATED? 


OVERRIDE? 


THRESHOLD 
STATUS? 


RETURN 8 
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Yes 


IOC 
ERROR? 


THRESHOLD 
STATUS? 


GEPR 
OVERRIDE? 


SET SEEK 
COMPLETED 
FLAG, LINKED 

STATUS 


RESET 
SEEK ADDRESS 
FLAG, IN 
IOS STATUS 


DECREMENT 
OUTSTANDING 


I/O COUNT 


. OPENS 
-CRQGT 


RETURN 4 


CPB-1500 


DSIO (EP2) 


- MDS20 


DSU200 REQUEST 


REWIND — 


‘LOAD AR FORWARD 
COMMAND1 SPACE 


IN SS RECORD 


LOAD QR 
POSITIVE 
RECCNT 


LOAD X1 BACKSPACE LOAD QR 
ADDRESS RECORD _- NEGATIVE RETURN 1 
COMMAND RECCNT 


TABLE 2 


LOAD QR - mane 
COMMAND COND 
MASK 


No 
Gy 
LOAD Xl SEARCH 
ADDRESS COMMAND 
COMMAND TABLE 3 
TABLE 1 FOR 1/0 
COMMAND 2 
v, 
LOAD QR Yes DELETE 
COMMAND v oy PUR 
MATCH? DEVICE 
AND RECCNT 
MASK COMMAND 
IN QR 
No 
¥, 
RETURN 5 
Y y 7, ¥ *, 


DSBSR 
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DSSL (EP3) 


. MDS20 


DSSL 


IS 
CHANNEL 
BUSY? 


No 


Yes 


SAVE XO 


ANY 
ENTRY 
LINKED, SEEK 
OT STARTED 
sTOBBED? 


No 


Yes 


ANY Yes 
MORE ENTRIES 
N QUEU 


¥ No 
AN 
ENTRY Yes 


WITH SEEK 
COMPLETED? 


No 


RETRIEVE 
XO 


RETURN 2 


Yes 


DSU200 SELECT 


SEEK TO 
= == START 


CHANNEL 
STOPPED? 


No 


SET SEEK 
REQS 2 
on Yes : COMPLETED bn sa 26 . 


RESS? STATUS 


BUILD PMX 
COMMAND 
USING PMX 
IMAGE 


SEEK 
ADDRESS 
IN PMX 
IMAGE? 


RETURN 1 


SET SEEK 
ADDRESS 
STORE FLAG 
IN 10S 

STATUS 


BUILD PMX 
COMMAND 
USING 
SEEK COMMAND 


SET SEEK 
STARTED AND 
IN TRANSMISSION 
STATUS 


RETRIEVE 
XO RETURN 3 
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SEEK 
COMPLETED 


No 


CHANNEL 
STOPPED? 


SET IN 
TRANSMISSION 
STATUS 


BUILD PMX 
COMMAND 
INQR 


RETRIEVE 
XO 


RETURN 3 
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DSSL (EP3) 


.- MDS20 


CPB-1500 


DSGP (EP4) 
. MDS20 


DSU200 ERROR AND EOF RECOVERY 


INCREMENT 
TOTAL ENTRY 
COUNT 


SAVE SR1,SR2 
IN STACK 
(2 WORDS) 


IN I/O ENTRY 


RESERVE 
2 CELLS IN 
STACK (X1) 


EXTRACT 
BLOCK NUMBER 
FROM SEEK 
ADDRESS (4,3) 
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CPB~1500 


COMPLEMENT 
BLOCK NUMBER 
AND INCREMENT 
BY 1 (MAXIMUM 
NUMBER OF 


RELATIVE BLOCK 
NUMBER IN 
WORD 10 OF 

I/O ENTRY 


MULTIPLY 
MAXIMUM NUMBER 
OF BLOCKS 
BY 40 
WORDS /BLOCK 


SAVE MAX 
NUMBER OF 
WORDS READ IN 
STACK (X1) AS 
NEGATIVE 


NUMBER 


ABSOLUTIZE 
DCW PTR (X4) 


DSGP (EP4) 


. MDS20 


CPB-1500 


DSGP (EP4) 
. MDS20 


LOAD X4 NEXT 
DCWP 

(RELATIVE) 

FROM TDCW 


ABSOLUTIZE 
DATA ADDRESS 


LOAD X4 WITH 
ABSOLUTE 
DATA ADDRESS 

(NEXT DCWP) 


NOT A TDCW 
X4 = ABSOLUTE 
NEXT DCWP 


QR=MAXIMUM 
WORD COUNT 


QR=DCW WORD 
COUNT 


238 


CPB-1500 


NEGATIVE MAXI- 
MUM NUMBER OF 


WORDS IN 
STACK(0, 1) 
+ DCW COUNT 


ANY 
WORDS LEFT? 


COUNT No 
EXHAUSTED? y 
Yes 


Is Is 
DCW AN . 2 DCW AN 
LOTD? IOTD? 
No 


No 


Is 
NEXT DCW 
A TDCW? 


No 


Yes 


PICK UP 
DCW 


ABSOLUTIZE 
DATA ADDRESS 


LOAD X4 
ABSOLUTE DCWP 
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DSGP (EP4) 


. MDS20 


CPB-1500 


DSGP (EP4) 


. MDS20 


MAXIMUM NUMBER 

OF WORDS EX- 

HAUSTED, X4 = Pe 
NEXT DCWP 


DCW NOT COM- 
PLETED BUT 
MAXIMUM NUMBER 
OF WORDS RAN OUT 


. REBUILD DCW 
FOR WORDS NOT 


SAVE NEXT 
DCW IN 


TRANSMITTED 
SAVE IN STACK 
(1,1) 


STACK (0,1) 


INCREMENT 


DCWP (x4) 


EOFRB 


LOAD QR WITH 
DCW PIR 
ABSOLUTE 


Is 
NEXT DCW 
A TDCW? 


LOAD QR WITH 
TDCW IN LIEU 
OF MANU- 
FACTURED DCW 


RELATIVIZE 
DCWP FOR DATA 
ADDRESS 


BUILD DCW 
(DATA ADDRESS 
TDCW) IN QR 


QR CONTAINS 
TDCW FOR 

CONTINUING 

DATA TRANSFER 


SAVE TDCW 
IN STACK 
(1,1) 
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DSGP (EP4) 


. MDS20 


RETRIEVE OLD 
SEEK ADDRESS 


(4,3) 


PICK UP 
D ADJUSTED RELA- 
TIVE BLOCK 
NUMBER FROM 


Yes 


No 


INCREMENT 
ZONE IN OLD 
SEEK ADDRESS 
BY 1 


SAVE Xl IN WORD 
1 OF ENTRY; 
SAVE X3 IN X4 


LOAD X3 
ABSOLUTE PAT 
ADDRESS 


TURN OFF 
SECTOR ADDRESS 
BITS 


LOAD X2 WITH 
LOGICAL 
CHANNEL INDEX 
(WORD 8) 


— — —| SEEK ADDRESS 


NEW SEEK 
ADDRESS 


No 
RESTORE X1 
AND X3 
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QR=NEW 
SEEK ADDRESS 


DSGP (EP4). 


. MDS20 


STORE NEW 
SEEK ADDRESS 
IN I/O ENTRY 
(WORD 4) 


LOAD X4 
ABSOLUTE DCWP 
FOR R/W 

(POINTS AT 
PREFIX) 


LOAD X4 STORE OLD 
ABSOLUTE TDCW (FROM 
DCWP FOR PREFIX) IN 

R/W (WORD 8) STACK (1,1) 


MANUFACTURED 
TDCW IN STACK 
(1,1) AND 
X4=ABSOLUTE 
DCWP R/W 
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NO MANUFACTURED 
— — — |} Dews IN 
SLAVE PREFIX 


HERE A 
EMPTY SLOT 
IN_ PREFIX} 


SET QR=0 


X4 =ABSOLUTE 
LOCATION OF 
SLOT +2 


STORE MANU- 
FACTURED DCWS 
IN DCW PAIR 
SAVE CELLS 
(0,1 AND 1,1) 


STORE DCWS 
IN SLAVE 
PREF IX 


RELATIVIZE 
DCWP AND 
STORE IN I/O 
ENTRY, 8 


SET MANU- 
FACTURED DCW 
FLAG IN 1/0 
ENTRY 
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_DSGP (EP4) 


. MDS20 


CPB-1500 


DSGP (EP4). 


. MDS20 


POP UP STACK 
(4 CELLS) AND 
RETIREVE 
2 TEMP CELLS 
(SRL AND SR2) 


ZERO STATUS 
WORDS STORED 
IN I/O ENTRY 


RESET 10S 
STATUS BITS IN 
WORD 0 


SET SEEK 
COMMAND 
FLAG IN 
WORD 2 


LOAD X4 I/O 
ENTRY OFFSET 


LINK 
LINK AND STIO 
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CPB-1500 


DSGP (EP4) 


. MDS20 


RETURN 
READY STATUS 


POP UP STACK 
2 TEMPORARY 
CELLS 


RETRIEVE 
SR2 FROM STACK 
AND STORE 
IN ENTRY 


| RETRIEVE 

SR1 FROM STACK 
AND CHANGE 

TO READY 


STORE STATUS 
IN ENTRY 


RELEASE 
ANY GENERATED 
DcwWs IF 

NECESSARY 


-EXIT 2 


245 CPB-1500 


DSGP (EP4) 


. MDS20 


BORT ae ee 


RELOAD 
X3 


POP UP STACK 


2 TEMPORARY 
CELLS 


Is 
ERROR 
TOO FAR 
FORWARD? 


Yes 


RETRIEVE SR2 
FROM STACK AND 
STORE IN 
ENTRY 


RETRIEVE SR1 
FROM STACK 
(HARDWARE EOF) 


EXITS 


ERROR RETURN 
FROM SEEK 
CALCULATION 
ROUT INE 


POP UP STACK 
2 TEMPORARY 
CELLS 


RELEASE 
ANY GENERATED 
DCWS IF 
NECESSARY 


LOAD ABORT 
CODE 


LOAD X3 
LAL 


.CALL.MBRT1, 5 
MAKE 


ABORT ENTRY 


~EXIT 
RETURN 0 
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CPB-1500 


NEGATIVE EP 


. MDS20 


DSU200 NEGATIVE ENTRY POINTS 


LLINK, 
ABSOLUTE srr ey 
BLOCK NUMBER 


LINK, 
ABSOLUTE 
BLOCK NUMBER 


NEGATIVE a 
EP5 


SAVE X1,X4 SAVE X1,X4 


IN STACK 


IN STACK 


SET BPL =-96 
FOR LINK 
PROCESS ING 


SET BPL =-8 
FOR LLINK 
PROCESS ING 


ple INPUT 


BLOCK NUMBER ~ 
BPL=LNO (LINK 
NUMBER) AND 
REMAINDER IN 
BLOCKS 


BLOCK NUMBER + 
BPL=LNO (LLINK 
NUMBER )AND 
REMAINDER IN 

BLOCKS _. 


STORE REMAINDER 


IN ADEND 
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NEGATIVE EP 


. MDS20 


NEGATIVE ae, LLINK, 
EP2 PAT 


SAVE X1,X4 


IN STACK 


SHUT GATE 


SET BPL =-8 


FOR LLINK 
PROCESS ING 


No 


SPACING 
REQUESTED? 


LOAD QR WITH 
CURRENT BLOCK 
NUMBER WITHIN 
CORE DESCRIPTION 


SAVE BLOCK 
NUMBER 


REQUESTED 


NEGATIVE 
EP1 


SAVE X1,XX 


IN STACK 


SHUT GATE 


SET BPL =-96 


FOR LLINK 
PROCESS ING 
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TEST (NEXT) 
DESCRIPTOR 
WORD 


MULTIPLY LENGT 
OF DESCRIPTOR 
SEGMENT BY BPL 


No 


EXTRACT LENGTH 
OF DESCRIPTOR 
SEGMENT IN BLOCK 


Yes 


REQUESTED BLOCK 
\ WITHIN 
DESCRIPTOR? 


ADEND HAS 


NUMBER OF BLOCKS 
INTO NEXT 


DESCRIPTOR 


No AS 
HIS DESCRI 
THE LAST IN 


CORE? 


OR 


Yes 


LINK 
DESCRIPTION 
ALL IN CORE? 


No 


LOAD QR(NUMBER 


OF BLOCKS INTO 
INEXT DESCRIPTOR 


LOAD AR WITH 
BPL 
(LINK/LLINK) 


STORE XO 


(SPACE/S PACE) 
IN STACK 


Yes 
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REFRESH 
PAT FORWARD 


SAVE XO 
OVER GATE 
(REPLY ) 


RETRIEVE XO 
FROM STACK, 
RETRIEVE AQ, 
STORE AR IN BP 


QR = NUMBER 
OF BLOCKS INTO 
DESCRIPTORS 


DENTED? 


Yes 


LOAD QR WITH 
ERROR , 


FORWARD TOO 
FAR (BIT 2) 


NEGATIVE EP 


. MDS20 


CPB-1500 


NEGATIVE EP 


. MDS20 


Is 
SPACING 
REQUESTED? 


Yes SET QR 
OK (BIT O=0) 


Yes ADD BEGINNING 


BLOCK NUMBER 
TO BLOCK NUM- 
BER REQUESTED 


IN BLOCKS? 


© 4) 


Yes 


FUL 
RECORD(S 
LEFT IN No 

DESCRIPTOR? 


UPDATE CURRENT 
BLOCK NUMBER 
WITHIN CORE 
DESCRIPTION 
1 RECORD 


UPDATE CURRENT 
BLOCK NUMBER 
WITHIN CORE 
DESCRIPTION 
WITH REMAINDER 


REQUESTED BLOCK 
NUMBER WITHIN 
DESCRIPTOR + BPL= 
NUMBER OF LINKS 

OR LLINKS, RE- 
AINDER BLOCKS 


ADD BEGINNING 
LINK NUMBER OF 
DESCRIPTOR TO LNO 


AVE REMAINDER 
IN BLOCKS IN 
ADEND 


PROCESSING? 


No 


CALCULATE 4% 
NUMBER OF 
MODULES 

(FROM SCT) 


LNO + 4* NUMBER 
OF MODULES = 

TRACK NUMBER, 

REMAINDER = 
DISC NUMBER 


LEGAL? 


Yes 


SHIFT TRACK 
NUMBER TO QU 


SHIFT DISC 
NUMBER (AR) AND 
TRACK NUMBER 
(QR) TO BIT POSI 

TION 3-12 


REMAINDER IN 
BLOCKS (ADEND) 
+ 32 = SEGMENT, 
REMAINDER = 
ZONE 


SHIFT ZONE TO 
BIT POSITION 1-2 
SEGMENT TO 
BIT POSITION 
13-15 


INSERT DISC 


AND TRACK 
(3-12) 
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Yes 


CPB-1500 


NEGATIVE EP 


. MDS20 


LOAD QR 
ERROR (BIT 0) 
ILLEGAL (BIT3) 


SHIFT REMAINDER 
TO BIT POSI- 
TIONS 1-2 
(ZONE) AND 

ADD 1, INSERT 

IN DISC MASK 


NUMB 


RETRIEVE XRS 
FROM STACK 


SHIFT TRACK TO 
BIT POSITIONS 
11-14 (TRACK, 
SEGMENT), INSERT 
‘IN ZONE, DISC 
NUMBER MASK 


ADD REMAINDER 
IN BLOCKS 
(ADEND) TO 

SEGMENT PORTION 

OF MASK (13-17) 


LOAD QR MASK 


LLINK 
PROCESSING 


(SEEK ADDRESS) 


LLINK NUMBER 


+ 32 = DISC ce 
NUMBER, RE- 


MAINDER=LLINK 
INCREMENT 


Yes 
rs, 


SHIFT DISC 
NUMBER TO BIT 
POSITIONS 3-6 

AND SAVE 


LLINK INCREMENT 
+ 4 = TRACK, D 
REMAINDER 
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NEGATIVE EP 
. MDS20 


SPACING 
REQUESTED 


MULTIPLY 

NUMBER OF 
RECORDS BY 
BLOCKS / RECORD 


ADD NUMBER OF 


FORWARD Yes |procks TO SPACE 
SPACE? TO CURRENT 
BLOCK WITHIN 
DESCRIPTION 
No 
RETRIEVE CURRENT ¥ 
BLOCK WITHIN i 
CORE 
DESCRIPTION 
ADD NEGATIVE 
BLOCK COUNT TO 
CURRENT BLOCK 
Yes 
yes | LOAD QR ERROR 


(BIT 0) BACK 
TOO FAR (BIT 1) 


REWIND 
POSITION 
CORE? 


REFRESH 


PAT 
BACKWARDS 
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RETRIEVE 
NUMBER OF 


BLOCKS TO 
BACKS PACE 


tJ 


EXTRACT NEW 
BLOCK WITHIN 
CORE DESCRIP- 
TION 
FROM PAT 


INSERT NEW 
CURRENT BLOCK 
WITHIN CORE 
DESCRIPTION 


LOAD QR WITH 


OK (BIT 0=0) 
STATUS 


CPB-1500 


DIAGNOSTIC 
BLOCK, ABSOLUTE 
BLOCK NUMBER 


NEGATIVE 
EP3 


LOAD QR ERROR 
(BIT 0) ILLEGAL 
(BIT 3) 


SHIFT BLOCK 
NUMBER (LOWER 
7 BITS) AS 

TRACK, SEGMENT, 

NEXT 4 BITS 


INSERT ZERO 
ZONE, LEADING 
ZEROS IN TRACK 
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NEGATIVE EP 


. MDS20 


CPB-1500 


.1D820 
. MDS20 


DSU200 


LOAD X2 WITH 
CHANNEL MODULE 
ADDRESS 


INITIALIZE 
Ioc 0 


INITIALIZE 
16 CHANNELS 


CALCULATE 
FIRST LOGICAL 
CHANNEL INDEX 
FOR I0C 


STORE X2 IN 
CHANNEL 
-CRCT4 


INCREMENT 
NEXT 
Ioc 


CHANNELS 
XAMINED? 


INCREMENT NEXT 
CHANNEL INDEX 


LOAD AR=O 

NUMBER 
REQUIRED 
MODULES 


LOAD QR NEXT 
LOAD ADDRESS 
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INITIALIZATION 


CPB-1500 


CRIT (EP1) 


CARD READER INTERRUPT HANDLER .MGPIO 


No GEPR 
V OVERRIDE? 
Yes 
\4 
No 


RETURN 0 


RETRIEVE ERROR 
RATIO AND 
RESET TO ZERO 


DATA No . ey 
ALERT? 


Yes 


HA 
DEVICE 
IMIT BEEN 
EXCEEDED? 


TRANSFER 
TIMING? 


Yes 


/ 


STORE ERROR 

RATIO IN 1/0 

ENTRY, SET 
THRESHOLD STATUS 


COUNT TOTAL 
TRANSFER 
TIMING ERRORS 


Iroc Yes , > 
ERROR? 


No Yes 


CHANNEL Yes 
READY? 


No No 


Yes 


7, Y, 


© RETURN 1 RETURN 0 
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CRIT (EP1) 


. MGPIO 


RETURN 12 3 


FEED 
OR READ 
ALERT? 


GEPR 
OVERRIDE? 


COUNT 
CHANNEL 
ERRORS 


MULTIRECORD 
ae, SIMULATION 
WITH OK STATUS 


RETRIEVE 

RECCNT FROM 
SMX3 AND 

DECREMENT BY 1 
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MULTIRECORD 
SIMULATION 
WITH ERROR 
STATUS 


RETRIEVE RECCNT FROM 
SMX3, DECREMENT BY 1 
AND INSERT IN STATUS 
WORD 1 


GEPR 
OVERRIDE? 


. RETURN 11 


RETURN 9 


CPB-1500 


CRIO (EP2) 


. MGPIO 


CARD READER REQUEST 


DATA 
TRANSFER 
COMMAND 


LOAD X1 ADDRESS 
DATA TRANSFER 
COMMAND TABLE 


RETURN 0 


LOAD AR 1/0 NDT 


LOAD QR MASK 
FOR DEVICE RETURN 2 
COMMAND 


DATA NON DATA 
Y_ TRANSFER TRANSFER Y 


LOAD X1 ADDRESS 
NDT COMMAND 
TABLE 


LOAD QR DEVICE 
IOC COMMAND 
RECCNT MASK 


RETURN 6 


957 CPB~1500 


.IGPIO 
. MGPIO 


LOAD X2 WITH 
CHANNEL MODULE 
ADDRESS 


INITIALIZE 
FOR I0c 0 


INITIALIZE FOR 
16 CHANNELS 


CALCULATE FIRST 
LOGICAL CHANNEL 
INDEX 


TYPE Yes 

20 CR IN y 
.CRCT1 
1 


No 


Yes, 


ALL 
CHANNELS 
X AMINED? 


Yes 


No 


INCREMENT 


INDEX FOR NEX 
CHANNEL 


CARD READER INITIALIZATION 


STORE X2 


» (CHANNEL ADDRESS) 
IN .CRCT4 


INCREMENT FOR 


NEXT IOC 


ALL IOC Yes 


EXAMINED? 


No 
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~ LOAD QR NEXT 
LOAD ADDRESS 


INITIALIZE EP1 
FOR SIMULATION; 
LOAD QR WITH NEW 
NEW LOAD ADDRESS 


LOAD AR WITH 
NO REQUIRED 
MODULES 


RETURN 


CPB-1500 


MTIT (EP1) 


MAGNETIC TAPE INTERRUPT HANDLER .MMTAP 


TRANSFER 
TO COMMAND 
ROUTINE 


ECONDARY 
CHANNEL OF 


No 


CALCULATE 
LOGICAL PRIMARY 
XBAR CHANNEL 

INDEX 


Y, 
READ WRITE 
COMMAND COMMAND 
NITIATION Yes ‘ (4) 
INTERRUPT? 


SPECIAL 


Yes 5 es 
INTERRUPT? a 
No o 


Toc Yes Yes DATA WRITE 
ERROR? oa ALERT, BLANK SINGLE 
, TAPE? CHARACTER2Z 
No No 


DEVICE 


ZERO RECCNT 
AND ADD 1 > 
? 
ATTENTION? TO FILE COUNT 


ADD 1 TO 
e & q RECCNT 
IN SCT 


No 


SEARCH COMMAND 
TABLE FOR f : & (s ) 
ROUTINE ADDRESS 


No SET LOST FLAG 
IN SCT 


Yes 
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MTIT (EP1) 


-MMTAP 


WRITE 
EOF 
COMMANDS 


FORWARD 
SPACE 
RECORD 


RECORD COUNT 


ADD (#RECORDS 
REQUESTED- 
RESIDUE) 
TO RECCNT IN SCT 


BACKSPACE 
RECORD 
COMMAND 


SUBTRACT 1 
FROM FILE 
COUNT IN SCT 


SET RECORD 
COUNT = -1 
IN SCT 


EQUES TED-RESIDUE) 
ROM RECCNT IN SCT 
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CPB-1500 


MTIT (EP1) 


. MMTAP 


FORWARD 
SPACE 
FILE 


BACKSPACE 
FILE 


CHANNEL 
READY? 


SET RECCNT = -1 
IN SCT AND 
SUBTRACT 1 

FROM FILE COUNT 


ZERO RECCNT AND 
FILE COUNT IN 
SCT 


SET 
HIGH 
DENSITY 


INITIATION 
INTERRUPT 


SEARCH COMMAND 
TABLE FOR 
ROUTINE ADDRESS 


CHANNEL 
READY? 


SET DENSITY SET DENSITY 
FLAG TO 1 FLAG TO 0 
IN ‘SCT IN SCT 


QR WITH SCT 


REWIND 
COMMAND 


BACKSPACE 
RECORD 


COMMAND 
REJECT, LOAD 
POINT? 


CHANNEL 
READY? 


RESET ALL 
BUT DENSITY 
FLAG IN 
SCT WORD 
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MTIT (EP1) 


. MMTAP 


ALL 
POSITIONING ce) 
DONE 


RETRIEVE 


QR AND XO 


No 


RETRIEVE 
ERROR RATIO 
AND RESET 
TO ZERO 


TRANSFER | COUNT TRANSFER 
TIMING? TIMING ERRORS 


DEVICE 
LIMIT 
XCEEDED 


STORE RATIO IN 
I/O ENTRY AND 
SET THRESHOLD 
STATUS 


Yes COUNT DEVICE 
(2) AND CHANNEL 
ERRORS 
No 
SAVE SMX2 
L0G Yes : DCWP FOR 
ERROR? GEPR IN 
I/O ENTRY 
No 


CHANNEL 
READY? 


GEPR 
OVERRIDE? 


Yes ee 


No No 


Yes cr) 


STORE TRUE 


CHANNEL INDEX, 
) PRESELECT FLAG RELOAD Canna 
IN ENTRY AND X5=GEPOP LAL 


STOP CHANNEL 
ScT 
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MTIT (EP1) 


. MMTAP 


READY 
EOF, OR 
GEPR OVERRIDE 


SPECIAL 
INTERRUPT 


“RELOAD 
X5 AND TEST I 
GEPR OVERRIDE? 


Yes 


-SHUTS .CRQGT 


RETURN 8 RETURN O 


BUSY 
STATUS 


ANY 
ENTRIES 
GESPECED? 


RESET 
GESPEC FLAG 


RESET 
THRESHOLD 
STATUS IN 


SET GESPEC 
BIT IN ENTRY 
IOS STATUS AND 
LINKED STATUS 


DISP,6 ENABLE 
ALLOCATOR 


REDUCE 
OUTSTANDING 
I/O COUNT FOR 
PROGRAM 


DRL 
DISASTER 


RELOAD 
GEPOP LAL 


RELOAD 
GEPOP LAL 


RETURN 5 
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RETURN 4 


MTIO (EP2). 


. MMTAP 


MAGNETIC TAPE REQUEST 


MTIO 


LOAD X1 ADDRESS 
DATA TRANSFER 
AND RECORD 

SPACING COMMAND 
TABLE 


LOAD AR 1/0 
COMMAND IN SS 


LOAD QR DEVICE 
COMMAND IOC 
COMMAND MASK 


TRA 
TO COMMAND 
ROUTINE 


COMMAND MATCH 


LOAD X1 ADDRESS 
NDT COMMAND 
TABLE 


LOAD QR DEVICE 
COMMAND, IOC 
COMMAND RECCNT 
MASK 


IS SS 
COMMAND 
FOUND? 


No 


RETURN 6 
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DATA TRANSFER 
COMMAND 
(R/W) 


WRITE SINGLE 
CHARACTER 
(EOF) 


EXTRACT EOF 
CHARACTER AND 
STORE IN SMX1 
IMAGE 


SPACE COMMAND, 
ERASE, REW, 
SET DENSITY, 
WEF 


STORE DEVICE 
AND IOC COMMANDS 


AND RECCNT IN 
PMX AND SMX3 
IMAGES 


RETURN 3 


_ — — .| RESS/ 
REQS 
RETURN 2 


CPB-1500 


.IMTAP 
. MMTAP 


MAGNETIC TAPE INITIALIZATION 


. IMTAP 


LOAD X2 WITH 


CHANNEL MODULE 
ADDRESS 


a 


INIT FOR 
Toc-0 


INITIALIZE 
FOR 16 
CHANNELS 


CALCULATE 
FIRST LOGICAL 
CHANNEL INDEX 


STORE X2 IN 


TYPE (10) 8? . CRCT4 
REGULAR (CHANNEL 
ADDRESS) 


ALL 
CHANNELS 


Yess} INCREMENT TO 
NEXT IOC 


No 


INCREMENT LOGICAL 
INDEX FOR 
NEXT CHANNEL 


Yes 


v 


ABSOLUTIZE 
ADDRESSES 
(0-17) IN 
TABLE AND 
TABL2 


LOAD AR = 0 


(NO MODULES 
REQUIRED) 


LOAD QR 
ADDRESS FOR 
NEXT LOAD 
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PRIT (EP1) 


. MPRIO 


DEVICE LIMIT BEEN 


PRINTER INTERRUPT HANDLER. 


PRIT 


SPECIAL 
INTERRUPT? 


No 


Yes 


. RETURN 2 


No 


Yes 


RETRIEVE ERROR 


RATIO AND 
RESET TO ZERO 


HAS No 


XCEEDED? 


STORE ERROR 
RATIO IN ENTRY 
AND SET 


THRESHOLD STATUS 
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RETURN 0 


DATA 
ALERT? 


TRANSFER 
TIMING? 


COUNT TRANSFER 
TIMING ERRORS 


GEPR 
OVERRIDE? 


CPB-1500 


PRIT (EP1) 


. MPRIO 


RETRIEVE 
(5) i >| STATUS 


WORD 1 


COUNT ERRORS & 


FOR CHANNEL 


Yes @ 
» 


SAVE STATUS 
WORD 1 


No 
v RETURN 0 


Yes 


RETURN 8 


No 


MULTIRECORD 
SIMULATION 
WITH OK STATUS 


ae 
> 


Yes 


RETRIEVE 
STATUS 
WORD 1 


RETRIEVE RECCN 
FROM SMX3 AND 
DECREMENT BY 1 


IS 
RECCNT 
ZERO? 


GEPR 
OVERRIDE? 


No 


¥ J 


RETURN 1 RETURN 0 
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RETURN 12 


PRIT (EP1) 


. MPRIO 


MULTIRECORD 
SIMULATION 

WITH TOP OF 
PAGE STATUS 


RETRIEVE 
STATUS 
WORD 1 


RETRIEVE RECCNT 
FROM SMX3 AND 
DECREMENT BY 1 


MULTIRECORD 
SIMULATION 
WITH ERROR 


MULTIRECORD 


RETRIEVE RECCNT 
FROM SMX3 AND 
DECREMENT BY 1 


GEPR 
OVERRIDE? 


RETURN 9 


RETURN 11 
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CPB-1500 


PRIO (EP2) 


. MPRIO 


PRINTER REQUEST 


—— — —| TRANSFER 


LOAD X1 ADDRESS 


DATA TRANSFER 
COMMAND TABLE 


LOAD AR | 
— — — -{NOT 
I/O COMMAND 
IN Ss COMMANDS 
' v 
LOAD QR 
DEVICE COMMAND RETURN 2 

MASK ; 


RETURN 0 


LOAD X1 ADDRESS 
NONDATA TRANSFER 
COMMAND TABLE 


+ 


LOAD QR DEVICE 
AND IOC COMMAND, 
RECCNT MASK 


Yes 


RETURN 6 


DATA NON DATA 
Sy TRANSFER TRANSFERY 
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. IPRIO 
. MPRIO 


PRINTER 


. IPRIO 


LOAD X2 WITH 
CHANNEL MODULE 
ADDRESS 


INITIALIZE 
FOR I0C 0 


INITIALIZE 
FOR 16 
CHANNELS 


CALCULATE. 
FIRST LOGICAL 
CHANNEL INDEX 


STORE X2 
Yes (CHANNEL MODULE 
ADDRESS) IN 
. CRCT4 


TYPE 
26 PR IN 
- CRCT1? 


ALL 
CHANNELS 
EX AMINED? 


INCREMENT 
FOR NEXT 
Toc 


Yes 


No 


INCREMENT 
INDEX FOR 
NEXT CHANNEL 


ALL I0C Yes 


EXAMINED? 


No 


INITIALIZATION 
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LOAD QR 
NEXT LOAD 
ADDRESS 


INITIALIZE EP1 
FOR MULTIRECORD 
SIMULATION 

LOAD QR NEW 
LOAD ADDRESS 


LOAD AR WITH 
NO REQUIRED 
MODULES FLAG 


RETURN 


CPB-1500 


PAPER TAPE INTERRUPT HANDLER PTIT (EP1) 


Y 


DATA No 
VII ALERT? D 


Y 


. MPTAP 


SPECIAL “\_Ne 
INTERRUPT? TRANSFER 
TIMING? 
Yes 
y 
RETURN 3 
COUNT TOTAL 
; ' TRANSFER TIMING 
f ERRORS 
No 


RETRIEVE & 
RESET ERROR 
RATIO 


GEPR_ 
OVERRIDE? 


DEVICE 
THRESHOLD 
MET? 


Yes 
7, COUNT DEVICE 
STORE RATIO AND CHANNEL 
IN I/O ENTRY ERRORS 
AND SET 


THRESHOLD STATUS 


GEPR 
OVERRIDE? 


CHANNEL 
READY? 


No 
> RETURN 1 


Yes 


DEVICE GEPR 


ATTENTION? OVERRIDE? D 
No 
J x ‘. 
} 
eG HRESHOLD 
OR EXCHANGE . RETURN 0 
STATUS? 
Yes 
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PTIO (EP2) 


. MPTAP 


PTIO 


LOAD X1 ADDRESS 
DATA TRANSFER 
COMMAND TABLE 


LOAD AR SS 
COMMAND 


LOAD OR DEVICE 


COMMAND MASK 


LOAD X1 ADDRESS 
NON DATA TRANSFER 
COMMAND TABLE 


LOAD QR DEVICE 
OC COMMAND AND 
RECCNT MASK 


Is 
COMMAND 
MATCH FOUND? 


No 


RETURN 6 


PAPER TAPE REQUEST 


DATA 
TRANSFER 
COMMANDS 


NON DATA 
TRANSFER 
COMMANDS 
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CPB-1500 


-IPTAP 
. MPTAP 


PAPER TAPE INITIALIZATION 


LOAD AR = 0 
(NO REQUIRED 
MODULES) 


LOAD X2 


CHANNEL MODULE 
ADDRESS 


LOAD OR NEXT 
LOAD ADDRESS 


INITIALIZE 
roc 0 


RETURN 


INITIALIZE 
16 CHANNELS 


CALCULATE FIRST 
LOGICAL CHANNEL 
INDEX 


STORE X2 
IN .CRCT4 FOR 


Yes 


CHANNEL 


ALL 
CHANNELS 
XAMINED? 


INCREMENT 
NEXT IOC 


INCREMENT INDEX 
FOR 
NEXT CHANNEL 


ALL I0C 
EXAMINED? 


Yes 
by 


No 
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TYIT (EP1) 
eMTYPE 


TYPEWRITER INTERRUPT HANDLER 


SPECIAL 


INTERRUPT. 
2 


OPERATOR 
ALERT? 


RETURN 2 


ADD TO 
TOTAL 
TRANSFER 
TIMING 
COUNT 


TRANSMISS ION 


RETRIEVE RATIO 
AND RESET 
TO ZERO 


DEVICE 
LIMIT 

EXCEEDED 
2 


COUNT 


CHANNEL AND 
DEVICE 
ERROR 
STORE RATIO : 
IN ENTRY 
AND SET 
THRESHOLD , 
STATUS 
BUSY Y 
OR EOF? 
1, No 


GEPR 
OVERRIDE? 


CHANNEL 
READY? 


RETURN 0 
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TYIT (EP1) 


.MTYPE 


'GEPR 
OVERRIDE? 


Yes 


GEPR 
OVERRIDE? 


No 


RESHOLD 
OR EXCHANGE 
TATUS 3? 


RETURN 0 
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TYIT (EP1) 


.MTYPE 


DATA ALERT 
OPERATOR ALERT 


LOAD XO 
ABS DCWP 


FOR READ 


SAVE FIRST 
READ DCW 


Is 1/0 No 
FOR MASTER 
ROUTIN 
? 


Yes 


CALCULATE 


ABSOLUTE 
DATA ADDRESS 


IN READ DCW 


ZERO 
SMK4 


LOAD QR READ 
(UNIT RECORD 
IOC COMMAND) 


STORE IN 
SMX3 RETURN 7 
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TYIO (EP2) 
.MTYPE 


TYPEWRITER REQUEST 


~ 


LOAD X1 ADDRES _¥ 
OF COMMAND nae 
TABLE 
LOAD AR = 
SS COMMAND > 4 codices 
l ALARM 


LOAD QR 
sree , RETURN 2 


MASK 


COMMAND 4 TRANSFER TO ae 
MATCH oS 5 COMMAND Pans RITE (WITH 
e P READ FOLLOWING) 
ROUTINE 
ee UNIT REC ORCP 
No 


INSERT CP IOC 
COMMAND AND 

RECORD COUNT 
OF 2 


SAVE ONLY DEVICE 
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TYIO (EP2) 


.MTYPE 


INSERT CP 
COMMAND AND 
RECCNT = 1 


SAVE _ ONLY 
DEVICE I0C 
COMMAND AND 

RECCNT 
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RETURN 6 


CPB-1500 


TYPEWRITER SELECT 


ANY 
ENTRIES 


IN QUEUE 
? 


Is 
CHANNEL 
STOPPED? 


No 


ANY 
MORE 


ENTRIES 
? 


IS 
CHANNEL 
BUSY? 


SPECIAL 


RESET 
CHANNEL 
STOP 


SEARCH QUEUE 
FOR LINKED 
ENTRY, NOT 
STOPPED OR 

GESPECED 


RESTORE 
XO 


RETURN 1 
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TYSL (EP3) 


. MTYPE 


CPB-1500 


-ITYPE 
».MTYPE 


TYPEWRITER INITIALIZATION 


- LTYPE 


LOAD X2 
CHANNEL MODULE 
ADDRESS 


INITIALIZE 
IOc-0 


INITIALIZE 
16 CHANNELS 


CALCULATE 
FIRST LOGICAL 
CHANNEL INDEX 


STORE X2 
IN .CRCT4 
FOR CHANNEL 


ALL 
CHANNELS 
EXAMINED 


INCREMENT 
NEXT IOC 


INCREMENT 
INDEX FOR 
NEXT CHANNEL 
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LOAD AR = 0 
(NO REQUIRED 
MODULES) 


LOAD QR NEXT 
LOAD ADDRESS 


RETURN 


CPB-1500 


ACTS1 (EP1) 


» MACTS 


NORMAL CLOSE OF ACCOUNTING FILE 
7 [ 
EXCHANGE TAPES 


ZERO EP3FG 
FLAG 


INITIALIZE 
NORMAL DCW 
LENGTH MESSAGE 


FILL ENTRY 
SKELETON TO 
WEF (FLSTS) 


GET 1/0 ENTRY 
AND .LINKF 
(GIVIO) 
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ACTS2 (EP2) 


.MACTS 


ERROR CLOSE OF ACCOUNTING FILE 


EP2 ERROR 
EXCHANGE TAPES 


INITIALIZE 
MESSAGE DCW TO 
INCLUDE ERROR 

INFORMATION 


RETRIEVE CURRENT 
BLOCK SERIAL 
NUMBER FROM 

. CRACF 


DECREMENT BLOCK 
SERIAL NUMBER BY 
1 AND CONVERT TO 

BCD TO TYPE 


ZERO EP3FG 
FLAG 
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FILL ENTRY 
SKELETON TO 
REWS (FLSTS) 


GET I/O ENTRY 
AND .LINK 
(GIVIO) 


CHECK 
STATUS (CKSTS) 


(CVID) CONVERT 
OLD PHYSICAL 
ADDRESS TO BCD 


STORE IN 
MESSAGE 


SET UP 
PARAMETER 
IN AR 


CALL .MALC2,2 
ASK FOR 
READY TAPE 


ZERO EXTRA 
REWIND FLAG 


WAS READY 
APE GIVEN? 


BLANK READY 
WORD IN 
MESSAGE 


EXCHANGE TAPES 
MARK OLD TAPE 
NOT ASSIGNED, 

NEW TAPE 

ASSIGNED 


IS EXTRA 
REWIND FLAG 


FILL ENTRY 
SKELETON TO 
REWS (FLSTS) 


GET I/0 ENTRY 
AND .LINKI 
(GIVIO) 


CHECK STATUS 
(CKSTS) 
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ACTS2 (EP2) 


. MACTS 


CPB-1500 


ACTS2 (EP2) 


. MACTS 


(CVID) CONVERT 
NEW PHYSICAL 

ADDRESS 
TO BCD 


STORE IN 
MESSAGE 


ZERO BLOCK 
SERIAL NUMBER 
IN .CRACF 


. QUEUE 
GET AN 1/0 
ENTRY 


LOAD QR WORD 
0 OF ITYM 
CALLING 
SEQUENCE 
(MESSAGE CODE) 


Is 
MODULE IN 
SSA? 


QR MASTER 
FLAG TO QR 
(BIT 0) 


USE ABSOLUTE 
DATA ADDRESS 
(x0) 


RELATIVIZE 
DATA ADDRESS 


FOR SSA (XO) 
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CPB-1500 


OR LINK FIRST 


FLAG TO QR 
(BIT 1) 


STORE XO 
(DATA ADDRESS) 
IN DCW 


STORE QR IN 
WORD 0 OF 
CALLING SEQUENCE 


STORE OFFSET 
OF DCWP AND 
SRP 


LOAD XO ABSOLUTE 
LOCATION OF 
CALLING 
SEQUENCE 


. GITYM 


. GRELC 


Yes 


No 


ACTS2 (EP2) 


. MACTS 


CALL .MALC2 ,2 
ASK FOR 
_STANDBY TAPE 


STORE READY 
IN MESSAGE 


IS TAPE 
REALLY READY, WRITE - 
NHIBIT?Z 


SET EXTRA 
REWIND FLAG 


SET UP ENTRY 
SKELETON RESS 
(FLSTS) 


SET GEPR 
OVERRIDE FLAG 
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ACTS2 (EP2) 


. MACTS 


«SHUT .CRACF 
GATE 


ZERO TAPE 
WRITING FLAG 


.OPEN .CRACF 
GATE 


RELOAD 
REGISTERS 
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CPB-1500 


GET ENTRY 
AND .LINKF 
(GIVIO) 


Is 
STATUS 
TANDBY? 


FILL ENTRY 
SKELETON 
AR=COMMAND 


ZERO 
SKELETON 


STORE AR IN 
PMX AND SMX3 
IMAGES 


STORE SCT 

ADDRESS AND 

DO NOT ABT 
FLAG 


STORE PGMNO 
AND GEPR U 
OPTION 


STORE SRP 


OFFSET 
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GET ENTRY 
FILL, LINK 
FIRST 


ACTS2 (EP2) 


.»MACTS 


CPB-1500 


ACTS2 (EP2) 


.MACTS 


MOVE SKELETON 
TO I/O ENTRY 


LOAD X4 
ENTRY OFFSET 


. LINKF 
LINK FIRST 


CONVERT 
.CRACF SCT 
DEVICE ADDRESS 


LOAD X1 WITH 
INDEX TO GET 
IoC AND CHANNEL 

NUMBERS 


CONVERT DEVICE 


NUMBER IN SCT 


TO BCD AND 
PUT IN Xl 


CONVERT IOC 
AND CHANNEL 
NUMBERS IN 
CHANNEL SCT, 
TO BCD IN AR 
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CPB-1500 


ACTS3 (EP3) 


MACTS 


EXTERNAL REQUEST FOR ACCOUNTING FILE 


EP3 
EXTERNAL REQUEST TO 
EXCHANGE TAPES 


SET TAPE 
OPEN .CRACF WRITING FLAG ON 
Oe ae -OPEN .CRACF 


URGENCY 


.CALL .MDISP,13 STORE 
SET ALARM REGISTERS 


SAVE REGISTERS STORE X1 
AT 32 IN EP3FG 


CALL .MDISP,1 
GIVE UP 
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4. TERMINATION AND SYSTEM OUTPUT 


(Reference CPB-1496) 
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MME (EP1) 


. MSYOT 


PROCESS MME GESYOT 


EPL 
MME GESYOT 
.GSYOT 


ADD 1 TO 
. CRTSM 
COUNT OF 
RECORDS DONE 
TO Xl 


63 WAITING AT MAIN LEVEL, MORE 1/0 
NEEDED, MME IN SSA, NO FILE CODE 


/ 


GO TO 
.MBRT1, EP3 


<n > - 
No 
URN OFF STATE BITS FOR IN 
Yes SET ABORT T 
Kt : Cane NG eer .| COURTESY CALL, 1/0 IN PROGRESS 
No 
f 


° 


TURN OFF STATE 
BITS FOR WAITING 
AT MAIN LEVEL 
MME FROM SSA 


SET STATE FOR WAITING 


TS Yes GO TO 
I/o IN sy) AT MAIN LEVEL, IF CALL » .MDISP, EP3 
PROGRESS? WAS BY .GSYOT, BACK UP (FORCED RELINQUISH) 
STACK BY 1 ne 
No 


PUT ABSOLUTE LOCATION OF 
WORD AFTER MME IN X1, SE 


STATE FOR MME IN MASTER 
OR SLAVE VIA MASTER MODE 
BIT IN STACK 
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MME (EP1) 


. MSYOT 


PUT ABSOLUTE LOCATION OF 
FILE CONTROL BLOCK IN X3 
PUT LAST LOCATION OF SLAVE 
AREA IN UPPER OF ABMXS 


SET ABORT 
CODE TO 
67 


IN MASTER 
MODE? 


PUT ZERO IN STATUS WORD 
PUT LOCATION OF BUFFER 
CONTROL WORD IN X2 AS 

OFFSET, PUT OFFSET TO STATUS 
WORD IN LOWER OF LURSW, PUT 
ZERO IN DESTINATION MASK 


Is 
FILE CODE 
=0? 


SET STATE FOR 
NO FILE CODE 
WITH THIS MME 
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MME (EP1) 


. MSYOT 


SET ABORT 
CODE TO 66 


COMPARE ID OF REMOTE STATION 
[TO THOSE IN RMTLK LIST AND 
PAT SAY SREMOTE SET DESTINATION MASK TO OCTAL 
CARD GIVEN OR REMOTE 2000 IF ID = FIRST ENTRY, 
STATION 4000 IF ID = SECOND ENTRY, 
LIVEN? 6000 IF ID = THIRD ENTRY, 


Yes 


OR O IF NO MATCH 


IF BIG BUFFER GIVEN, 
ADD 1 TO NRMME] 
SET STATE OF SLAVE 
PROGRAM TO SHOW 
SYSOUT WRITING 


SET STATE FOR 

NO MORE I/O NEEDED 

NO DCW STRING 
SET DCWRM AND LASRM TO ZERO IF $REPORT 
CARDS GIVEN, SET 


RMMSK TO IGNORE LAST 4 BITS OF MEDIA 
CODE 

IF NO SREPORT CARDS, SET RMMSK TO 
COMPARE ALL 12 BITS OF REPORT AND 
MEDIA CODES 

PUT ABSOLUTE LOCATION OF DATA BUFFER 
IN X2 
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MME (EP1) 
. MSYOT 


SET ABORT 
CODE TO 
68 


7WORD COUNT Yes 
IN BUFFER CONTROL 


PUT SUM OF ABSOLUTE 
LOCATION OF BUFFER 
AND WORD COUNT 

IN EOBUF 


SET ABORT 
CODE TO 
69 


BUFFER WITHIN FROM SLAVE? 


SLAVE AREA? 


ADD 2 TO X2 TO SKIP OVER BUFFER 
CONTROL WORD AND BLOCK SERIAL 
NUMBER 

IF MME FROM SLAVE, ADD 2 MORE 
TO X2 TO SKIP SYSOUT CONTROL 
WORDS 
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MME (EP1) 


. MSYOT 


PUT REPORT AND 
MEDIA CODES OF 
CURRENT LOGICAL 
RECORD IN Xl 


PUT REPORT AND MEDIA 
CODES IN LASRM 

ADD WORD COUNT OF LOGICAL 

RECORD + 1 TO X2 

GIVING LOCATION OF 

NEXT LOGICAL RECORD 


PUT POINTER TO 
RMLST ENTRY FOR 
REPORT WE ARE 
BUILDING DCW 

STRING FOR IN X4 


PUT CHANNEL READY 
STATUS IN USERS 
STATUS WORDS VIA 
LURSW 
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MME (EP1) 
.MSYOT 


MAKE SURE 
STATE IN XO 


SAYS FILE 
CODE GIVEN 


q 
EXTRA SSA 
BUFFERS? 


No 


Yes 


Yes 


7 WAS 
UFFER USED 
WITHIN LAST 4 
(MES? 


Yes 


No 


SET CC ADDRESS 
IN BBQIM+9 
TO EEECC 
SET STATE FOR 
1/0 IN PROGRESS 


WBB 


PREPARE TO 
WRITE BIG BUFFER 
IN EXTRA SSA 


. LINK - 


ADD 1 TO NUMBER 
OF WRITES IN 


.CRTSW 
PUT STATE IN XO 


EEECC = 


PUT STATE IN XO AND MAKE SURE IT SAYS 


CC ON 

1/0 NOT IN PROGRESS 

BUFFER EMPTY 

CURRENT REPORT NOT 
IN BUFFER 

NO EOF ON CURRENT 

REPORT 


COURTESY 
CALL AT 
EEECC 


__|COURTESY 


CALL 


STORE XO 
IN STATE 


TURN OFF SLAVES 
STATE BIT 
SAYING SYSOUT 
IS WRITING 


Yes 


ADD 1 TO VALUE 


IN STACK TO 
SKIP OVER FILE 
CONTROL BLOCK 
POINTER 
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TURN OFF 
CC FLAG, 
IN STATE 


CPB-1500 


MARK THE 


Is RECORD AS 
MEDIA CODE TAKEN BY 1 IN 
=0? BIT 18 OF 


CONTROL WORD 


SET ABORT 
CODE TO 64 


PUT LOCATION 
OF LOGICAL 
RECORD IN X4 


WRITE LOGICAL 
RECORD ON 
EXECUTION 

REPORT 


IF MEDIA CODE= 
ADD 1 TO IT IN| 
AR SO MATCH FOR 
CARD REPORTS WILL 
ALWAYS HAVE MEDIA=2 


Is 
MEDIA CODE 
< 16? 


SET ABORT 
CODE TO 72 
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MME (EP1) 


. MSYOT 


CPB-~1500 


MME (EP1) 


. MSYOT 


APPEND DESTN TO REPORT 
AND MEDIA CODE IN AR 
PUT DESTINATION MASK 
IN QR FOR MAKING 
COMPARISON WITH CMK 


REPORT 


=DCWRM?2 


a 
EXTRA SSA 
BUFFERS? 


SAVE REPORT AND MEDIA CODE 
WITH DESTINATION CODE APPENDED 
IN NEXT ENTRY IN BBLRM 
(OR IN FIRST ENTRY IF FULL) 
AND IN BBIMP 
ADJUST BBLRM POINTER IN BBNRM 


LOAD X4 WITH 
LOC OF RMLST 
AND X3 WITH 
NORMC 


REPOR 
AND MEDIA CO Yes BBI 


=X4 ENTRY IN 
LST 


ADD 2 TO x4 
SUBTRACT 1 
FROM X3 
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CPB-1500 


SET STATE IN 
XO SAYING TOO 
MANY REPORTS 
IN ACTIVITY 


PUT X3 IN NORMC 
PYT REPORT AND MEDIA 
CODE IN RMLST 
ENTRY VIA X4 


ASSIGN LINK 
TO THIS NEW 
REPORT 


SET STATE IN 
XO SAYING 
THAT MORE 
I/O IS NEEDED 
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BBE 


MME (EP1) 


. MSYOT 


~ CPB-1500 


MME (EP1) 


. MSYOT 


a 
EXTRA SSA 
BUFFER? 


PUT CURRENT 


REPORT AND 
MEDIA CODE REPORT IN 
IN AR FROM BBCRM? 


BBIMP 


PUT CURRENT 
REPORT AND MEDIA 
CODE IN AR 
FROM BBIMP 


PUT AR IN BBCRM AS 
CURRENT REPORT IN BUFFER 
SET STATE IN XO FOR 
CURRENT REPORT IS IN 
BUFFER 
PUT O IN NRMME 


PUT LOC OF BBLRM IN Xl 
SAVE XO IN STATE 
PUT 3 IN XO 
PUT NRRM IN X3 
PUT DESTINATION MASK IN QR 


SET DCWPR 
FOR START OF 
DCW LIST AT 
DCWST 


ADD 1 TO Xl 


DOES AR=> FOR NEXT 
BBLRM ENTRY WITHIN BBLRM ENTRY 
MASK? SUBTRACT 1 


FROM X3 
Yes 


SUBTRACT RESTORE 
1 FROM XO alate 
STATE 


RESTORE XO 
WITH STATE 
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PUT LOCATION OF SECOND RMLST ENTRY 
WORD FOR CURRENT REPORT, AND REPORT AND 
MEDIA CODES IN DCWRM 

SAVE RMLST POINTER IN .STEMP+6 FROM X4 
SET STATE IN XO FOR BUILDING DCW STRING 
COMPUTE NUMBER WORDS LEFT IN 320 WORD 
BLOCK AND STORE IN RSIDU (-2 IF BLOCK 
ENDS A LINK) 

SAVE CURRENT DISC POSITION DATA FOR 
CURRENT REPORT IN LOWER OF RSIDU 


RESTORE X4 

WITH RMLST 
POINTER OF 
CURRENT 


LOGICAL RECORD No 

se IN REMNAN D 
F 320 WORD 
NBLOCK?~ 


Yes 


REPORT 
“AND MEDIAN. No 
Sree OF CURRENT ————> 


CORD MATCH 
HOSE IN, 


SLASRM? 


ADD 1 TO DCW COUNT 
BUILD DCW WITH LOCATION 
AND LENGTH +1 OF CURRENT 
LOGICAL RECORD 
MAKE DCW AN IOTP 
ADVANCE DCW POINTER 


ADD LENGTH OF 
CURRENT RECORD 
+1 TO WORD 
COUNT IN 
LAST DCW 


ADJUST RSIDU BY RECORD SIZE +1 
MARK RECORD AS TAKEN BY 1 IN BIT 18 

ADD 1 TO NUMBER RECORDS TAKEN 

ADD 1 TO NUMBER RECORDS IN CURRENT REPORT 
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MME (EP1) 


. MSYOT 


CPB-1500 


MME (EP1) 


. MSYOT 


SET STATE IN XO FOR 
MORE I/O NEEDED 
LOAD LOWER OF AR 
WITH RESIDUE WORD 
COUNT AND +2 IF 

END OF LINK 

PUT O IN QR 


4 MOR 

320 WORD 
BLOCKS BEFORE NEXT 
FENCE? 


SUBTRACT 1 FROM 
NUMBER OF 320 
WORD BLOCKS 

TO NEXT FENCE 


BUILD DUMMY CONTROL WORD IN DCWFA 
WITH RSIDU-1 FOR WORD COUNT AND 
DU No > ZERO REPORT AND MEDIA CODE BUILD 
DCW AS IOTP FROM DCWFA WITH RESIDUE 
COUNT, ADD 1 TO DCW COUNTADVANCE 
ADVANCE DCW POINTER 


SET WORD COUNT IN RSIDU 
TO MAXIMUM BUT LESS 2 IF 
THERE ARE NO 320 WORD 

BLOCKS LEFT IN THE LINK 
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CPB~1500 


SET STATE 
IN XO FOR 


MORE 1/0 
NEEDED 


DIVIDE RESIDUE COUNT (+2 IF 
LAST 320 WORD BLOCK IN LINK) 
BY SIZE OF ADDRESSABLE BLOCK 
GIVING 

AR=REMAINDER 
QR=QUOTIENT 


STORE AR IN FRACT AS NUMBER 
OF FILLER WORDS, STORE QR IN 
INTGR AS NUMBER OF BLOCKS 


LEFT, ENTER QR VALUE IN RMLST 
ENTRY FOR REPORT IN 12-17, 
SAVE NEW BLOCK DATA IN BKDTA 


¥ 


18 
CURRENT . 
REPORT GOING TO D 
EXTRA BUFFER? 


ANY THIN 
BEEN PUT IN 
BUFFER}? 


- QUEUE 
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. GRELC 


MME (EP1) 


. MSYOT 


BUILD AN 
I/0 QUEUE 
ENTRY 


CPB-~1500 


MME (EP1) 


. MSYOT 


PUT OFFSET TO 
I/O QUEUE IN 
BIQ BUFFER 
INTO X4 


BUILD AN 
1/0 QUEUE 
ENTRY 


PUT OFFSET TO BBTXT IN BBDCW 
CHANGE SEEK DCW IN BBQIM TO 
POINT TO BBSXA, CHANGE LIMITS 
FLAG IN QUEUE TO USE EXTRA SSA 
SET CC ADDRESS TO CCAL1, SET 
DCW POINTER IN QUEUE TO BBDCW, 
SET BBLTXT TO POINT TO BBTXT 
AS PLACE TO STORE NEXT RECORD 


NEEDED? 


COUNT IN FRACT 


CHANGE LAST 
DCW FROM 
IOTP TO IOTD 


LOAD X4 WITH 
POINTER TO 
LST ENTRY FOR 
URRENT REPORT 


ASSIGN A 
LINK TO THIS 
REPORT 


FORM A FILLER WORD IN DCWFB WITH FRACT-1 
AS COUNT AND -1 AS RECORD TYPE, PUT NEW 

LINK NUMBER IN LNKNO (DCWFB+1), BUILD NEXT 
DCW AS IOTD FROM DCWFB FOR 2 WORDS 


EXTRA SSA MARK STATE 
BUFFER IN USE FOR FOR EOF 
URRENT ON THIS 
REPORT 


REPQRT? 


No 


BUILD FILLER WORD 
IN DCWFB WITH 
FRACT-1 AS COUNT 
BUILD DCW AS IOTD 
FROM DCWFB 
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CPB-1500 


MME (EP1) 


. MSYOT 


ADDRESSABLE BLOCKS yes 
1n\320 WORD BLOCK” 
FOR CURRENT 
REPORT? 


SET RMLST ENTR 
FOR CURRENT REPORT 
TO MAXIMUM NUMBER 
OF ADDRESSABLE | 
BLOCKS IN 320 WORDS 


SUBTRACT 1 FROM 
COUNT OF FENCE AREAS 
IN LINK AND SET 
COUNT OF 320 WORD 
BLOCKS TO FENCE AT 
MAXIMUM 


S 

CURRENT REPORT 
DGOING TO EXTRA 
SSA BUFFER?~ 


No 


SET STATE 
IN XO FOR 
EOF ON THIS 
REPORT 


UBTRACT 1 FROM 
COUNT OF 320 
WORD BLOCKS 

TO FENCE 


PUT OFFSET TO 
1/0 QUEUE 
ACQUIRED BY 
.QUEUE IN X4 AND 
MODIFY QUEUE 
LIMITS FOR ONE SSA 


CURRENT RECORD No 
“GOING TO EXTRA D 
SSA BUFFER? 


SET STATE IN 
XO FOR 1/0 
IN PROGRESS AND 
STORE XO 


PUT ABSOLUTE LOCATION OF 


NEXT AVAILABLE WORD IN BUFFER 
IN X4, LOAD X1 WITH ABSOLUTE 
LOCATION OF DCW LIST, SAVE 
STATE IN BBIMP 


ADD 1 TO WRITE 
COUNT IN .CRTS 
AND RESTORE 
XO WITH STATE 
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MME (EP1) 


. MSYOT 


GET WORD 
COUNT FROM 


CURRENT 
DCW IN AR 


¥ 


WILL CHANGE DCW AT BBDCW TO IOTP 
LENGTH GIVE No FORM TDCW IN BBDCW+l POINTING TO CURRENT 
IN AR FIT I 4 v DCW, ADD 1024 TO ALL DCWS IN LIST FOR 
“BUFFER? EXTRA SSA LIMIT, RESTORE STATE TO XO AND 
SET FOR BUFFER FILLING AND .FULL 
Yes 


MOVE DATA TO BIG 
BUFFER FOR COUNT 
AND LOCATION GIVEN 
IN CURRENT DCW AND 
ADVANCE DCW POINTER 


WAS 
THE LAST Yes 
DCW AN 
TOTP? 


No 


SET BBLTX FOR RELATIVE 
LOCATION OF NEXT AVAILABLE 
WORD IN BUFFER, RESTORE 
STATE IN X0, SET STATE IN 
XO FOR BUFFER BEING FILLED 


Is TURN OFF 
BUFFER FUL No STATE BIT IN 
OR @ EOF ON XO SAYING 


CURRENT. CURRENT REPORT 
REPORT? IS IN BUFFER 


PREPARE TO 
WRITE BIG 
BUFFER 
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ADD 1 TO COUNT 
OF RECORDS DONE 

SO WE WON'T | 
COME HERE AGAIN 


WRITE SPECIAL 
RECORD ON 


CONTAINING 
SREPORT IMAGES 


SET STATE 
IN XO TO 
ALL OK 


INITIALIZE 
TO SEARCH 


PAT FOR 
SYSOUT FILES 


IS PAT No ANY 
ENTRY FOR v DX MORE FILES IN 
SYSOUT? PAT? 

Yes Yes 


No 


SEARCH RMTLK FOR 
IDENTICAL DESTINATION 
IF NOT PRESENT, ADD 
TO LIST, IF LIST FULL, 
SET STATE IN XO FOR 
TOO MANY 
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EXECUTION REPORT 


INITIALIZE TO 


PROCESS $REPOR 
CARDS AND SET 


DESTINATION CODE 


MME (EP1) 


. MSYOT 


EXTRACT REPORT 
AND MEDIA CODES 
FROM $REPORT 
IMAGE AND MAKE 
RMLST ENTRY 


ASSIGN A LINK 
TO THIS REPOR 


MORE 
SREPORT 
CARDS? 


STORE REPORT 
COUNT IN NORM 
SET STATE 
IN XO FOR 
S$REPORT GIVEN 


ISA Yes SET STATE 
SECOND SSA IN XO FOR 
EXTRA BUFFERS 
No 
+ 7, 
STORE XO > 


IN STATE 


CPB-1500 


EXEC (EP2) 
.MSYOT | 


WRITE EXECUTION REPORT MESSAGE 
(RELATIVE LOCATION) 


EP2 
WRITE MESSAGE ON 
———| EXECUTION REPORT 
WHERE X4*RELATIVE 
LOCATION OF MESSAGE 


SAVE CONTENTS 
x4 IN 
DCWST+6 


ADD BASE ADDRES 
TO X4 
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CPB-1500 


EOA (EP3) 


. MSYOT 


PROCESS END OF ACTIVITY 


EOA = 


STORE CONTENTS 
OF X4 IN DCWST+6 
SAVE REGISTERS 


0,1,2,3 
iS Yes 
1/0 NOW IN b . GRELC 
PROGRESS2 
No 
, 
% 
ts REMOVE CC 
EXTRA SSA Yes LOCATION FROM 
BUFFER BEING » SPECIAL I/0 
ILLED? QUEUE IN 


EXTRA BUFFER 


PUT CONTROL WORD ON FRONT OF 


SYSOUT DATA IN SSA,LOAD X4 
WITH LOCATION OF THIS RECORD 
SET STATE FOR END OF ACTIVITY 


PREPARE TO 
WRITE BIG 
BUFFER IN 
EXTRA SSA 


v . LINK 


\/ 


ADD 1 TO NUMBER 
OF WRITES 
IN .CRTISW 


HAS Yes 
RECORD BEEN 4 
RITTEN? 


No 


. GRELC v 
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EOA (EP3) 


. MSYOT 


SUBROUTINE TO 
PREPARE TO 
WRITE BIG 
BUFFER FROM 
EXTRA SSA 


SAVE Xl 
IN BBIMP+2 
FOR RETURN 


MOVE SCT POINTER 
FROM QUEUE IN 
BUFFER TO .SGNPA 
COPY QUEUE IN 
BUFFER TO ONE 
WE JUST GOT 
RESTORE REGISTERS 
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PROCESS END OF JOB 


EP4 
—- —-END OF 
JOB 


OVE CONTENTS OF 
AR ON ENTRY 
TO .STEMP+/ IN 
CASE THAT IS 
WHERE SNUMB IS 


CALL 


ACTIVITY RECORD .MSYOT, EP3 


BEEN WRITTEN? 


SAVE REGISTERS 
0,1,2,3,4 
AS FOR 
EXECUTION 
REPORT EPS 


PUT LOCATION 
OF SPECIAL 
END OF JOB 

RECORD IN X4 


WRITE RECORD 
ON EXECUTION 
REPORT 


IGVGT 


GIVE JOB 
TO GEOT 
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EOJ (EP4) 


. MSYOT 


CPB-~1500 


EOJ (EP4) 


. MSYOT 


SUBROUTINE 
TO GIVE 
JOB TO 
GEOT 


IGVGT 


MAKE ENTRY 
IN GEOT QUEUE 
TO PASS JOB 


SUBROUTINE 


TO MAKE 
GIVEG ~ ““T ENTRY IN 
GEOT QUEUE 


AND ENABLE IT 


. SHUT 
. CRSYQ 


t 


MAKE TRACE ENTRY TO SHOW JOB 
READY FOR OUTPUT, MAKE ENTRY OF 
3 WORDS IN QUEUE 
1=SNUMB AND DESTINATION CODES 
2=CONTROLLING J* BLINK NUMBER 
3=IDS OF 3 REMOTES 
SNUMB FROM .STEMP+7 IF NOT GIVEN 
IN .CRSNB 


DOES 
ALLER WANT No 
BLINKS RELEASED? 


Yes 


REFRESH TALLY O 
QUEUE IF NEEDED 
LOAD QR WITH ‘ - OPEN . CALL 

.PNSYT AND - CRSYQ .MDISP, EP6 


76 FOR URGENCY 


MAKE ENTRY 
OF ALL 3 
WORDS=0 


RETURN 
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EOJ (EP4) 


. MSYOT 


SUBROUTINE TO 
CONVERT LINK 
NUMBER IN RMLST 
ENTRY TO SET AND 
LINK NUMBER IN QR 


LOAD QR WITH 
FIRST RMLST 
WORD 


DIVIDE QR 
BY NUMBER 
OF SYSOUT 
DEVICES 


CONVL+1 ENTERS 
HERE WITH OWN 
VALUE IN QR 


ADD iTH .CRSYT 


WORD IN QUOTIENT 
GIVING SCT a RETURN 

LINK NUMBER 
WHERE i=REMAINDER 


Is 
REMAINDER 


UBTRACT 1 FROM 
QUOTIENT AND ADD 
FIRST .CRSYT ENTRY 
TO GIVE SCT AND 
LINK NUMBER 


RETURN 


—— INITIALIZATION 
ENTRY 


INITIALIZE FIRST 3 WORDS OF .CRSYQ 
WITH LOCATION AND LENGTH OF ACTUAL 
QUEUE AND LOCATION OF WORDS IN 

-MSYOT TO BE INITIALIZED BY .MPOPM 
INITIALIZE .CRBGT WITH LOCATION OF 
BLINK LIST AND ITS GATE TALLY WORD 
LOAD QR WITH LOCATION OF END MODULE 
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EOJ (EP4) 


. MSYOT 


CC FOR 
WRITING 
BIG BUFFER 


CCAL1 at i 


TURN OFF 

ALL STATE 
BITS RELATING 
TO BIG BUFFER 
IN USE 


CC FOR 
WRITING 

SLAVE REPORTS 
W/O BIG BUFFER 


& _ CCALL -— 


TURN OFF STATE 
FoR I/O IN 
PROGRESS 
TURN ON STATE 
FOR CC 


FROM LURSW 
DOE COMPUTE LOCATION 
STATE SAY Yes OF DATA BLOCK 
MORE 1/0 AND PUT ITS 
NEEDED? ABSOLUTE LOCATION 
IN X2 


No 


STORE CHANNEL 
READY STATUS 


IN USERS 
STATUS WORD 
VIA LURSW 


q 
EXTRA SSA 
BUFFER? 


Yes 
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EOJ (EP4) 


. MSYOT 


SUBROUTINE 
TO WRITE RECORD 
LOCATED BY X4 
ON EXECUTION 
REPORT 


INITIALIZE DCWRM WITH LOCATION 
OF .SGNPATS AND REPORT AND MEDIA 
CODES FOR EXECUTION REPORT 

DESTN WITH REMOTE CODE IF ANY 
RESIDU WITH BLOCK DATA 


COMPUTE NUMBER OF ADDRESSABLE 
BLOCKS NEEDED FOR RECORD (IN 
X2 AND DCWST+,4) 

COMPUTE LENGTH OF FILLER IN 
LAST BLOCK (IN Xl AND .STEMP) 


REDUCE COUNT OF ADDRESSABLE BLOCKS 
IN .SGNPA+4 BY THOSE NEEDED NOW 
BUILD DCW FOR RECORD AS IOTD 


CURRENT 320 
WORD BLOCK CONTAIN 
MORE THAN ENOJGH 


Yes 


BUILD FILLER 
IN DCWFB 
CHANGE LAST DCW 
TO IOTR 
BUILD DCW AS 
IOTD FROM DCWFB 


WORD BLOCK CONTAIN 
EXACTLY ENOUGH 


CURRENT 32 
WORD BLOCK HIT 


SUBTRACT 1 FROM 
COUNT OF 320s TO 
FENCE AND ADD 
MAXIMUM COUNT OF 
BLOCKS PER 320 
IN_.SGNPAtG 


BUILD A DCW AS IOTP 
FROM DCWFA AND SET 
Ci DCWFA AS FILLER TO 
END OF 320s 

WORD BLOCK 


SET COUNT OF ADDRESSABLE 
BLOCKS IN 320s 
TO MAXIMUM IN 

. SGNPA+4 
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EOJ (EP4) 
. MSYOT 


BUILD I/0 QUEUE 
ENTRY IN ONE - QUEUE 
WE JUST GOT 


REMOVE CC No 
ADDRESS FROM Ds . GRELC b 
1/0 QUEUE 
Yes 


BLDQ 


UILD 1/0 QUEUE 
ENTRY IN ONE 
WE JUST GOT 


REMOVE CC FROM QUEUE,MOVE 
. SGNPAt4 TO LNKNO, PUT 
LOCATION OF LNKNO IN X4, 
PUT LOCATION OF GLPRT OR 
GLRM1 IN QR ACCORDING TO 
DESTINATIN OF J* 


ADD 1 TO COUNT 
OF WRITES BY 
SYSOUT IN 
.CRTSW 


GLXB 


GET A NEW 
LINK FOR J* 


WAIT FOR 
1/0 TO 
COMPLETE 


MOVE NEW LINK DATA 
BACK TO .SGNPA++ 
BUILD RECORD CONTROL 
FOR NEW LINK IN DCWFB 
WITH LINK DESCRIBED 
IN_LNKNO 


CONVL+1 


CONVERT SEQUENTIAL 
LINK NUMBER IN 


LNKNO TO SCT AND 
LINK NUMBER FORM 


BUILD DCW AS 
OTP FOR RECORD 
BUILD DCW AS 
IOTD FOR LINK 
FROM DCWFB 


DOE 
7 CURRENT 320 
BLOCK HAVE ROOM FOR 
RECORD AND NEW 
LINK. POINTER? 
\4 


No Yes 
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BUILD DCW 
AS IOTD FROM 
DCWFB FOR 
NEW LINK 
POINTER 


ADD 1 TO 
COUNT OF 
WRITES BY 
SYSOUT IN 
.CRTSW 


WAIT FOR 
1/0 TO 
COMPLETE 


PUT NEW BLOCK 
DATA INTO RSIDU 
FOR NEW 
LINK POSITION 


EOJ (EP4) 


. MSYOT 


ARE Yes 
WE EXACTLY AT A D 
FENCE? 


No 


ADJUST BLOCK DATA IN .SGNPAt+4 BY SETTING 

COUNT OF BLOCKS PER 320 TO MAXIMUM, 

SUBTRACTING 1 FROM NUMBER OF FENCE AREAS 

PER LINK,SETTING COUNT OF 320S PER FENCE 
TO MAXIMUM 


BUILD FILLER RECORD 
CONTROL WORD IN 
DCWFA TO FENCE 
BUILD DCW AS IOTD 
FROM DCWFA 


. QUEUE 


No 
D . GRELC D 


Yes 


BUILD 1/0 
QUEUE ENTRY 


REMOVE CC 
ADDRESS FROM > 
1/0 QUEUE 
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EOJ (EP4) 


. MSYOT 


SUBROUTINE TO 
BUILD I/0 QUEUE 
ENTRY IN QUEUE 
SPECIFIED IN X4 


BLDQ -__— 


STORE IN QUEUE AS FOLLOWS: 
LOWER: G=KeL=N=0=1 , H=I=J=M=P=Q=R=0 
UPPER: PAT POINTER FROM .SGNPT AS OFFSET 
LOWER: PROGRAM NUMBER 

: DCW OF IOTD OF 1 FROM WORD 11 ABSOLUTE 
UPPER: DCW POINTER (DCWST) AS OFFSET 
LOWER: 1 TO INDICATE DCWS ARE ABSOLUTE 

: WRITE COMMAND 
UPPER: DCW POINTER AS OFFSET 
UPPER: LOCATION OF STATUS WORD AS OFFSET 
LOWER: LOCATION OF CC CCALL AS ABSOLUTE 


ODOOwWwoanantar Fw 


ee 


FROM BLOCK DATA 
IN RSIDU COMPUTE 
ABSOLUTE BLOCK 
NUMBER ON DEVICE 
TYPE ASSIGNED 


LOAD QR 
WITH SEQUENTIAL 
LINK NUMBER 
FROM RMLST 
ENTRY FOR REPORT 


CONVL+1 


CONVERT LINK 
NUMBER IN QR 
TO SCT AND LINK 


STORE SCT 
POINTER IN WORD 
3 UPPER OF 
QUEUE AND IN 
. SGNPA 


. CRCT4 (-4) 
FOR SYSOUT 
DEVICE TYPE 
TO COMPUTE 
SEEK ADDRESS 


wie STORE THE 
Yes SEEK ADDRESS 
DATA OK? RETURN 
IN WORD 5 


OF 1/0 QUEUE 


No 


SET ABORT 
BLDQE CODE TO P| BORT 
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EOJ (EP4) 


. MSYOT 


SUBROUTINE TO ASSIGN 
A LINK TO THE REPORT 
WHOSE RMLST ENTRY IS 
INDICATED BY X4 


GALNK 


FROM DESTINATION CODE 
IN DESTIN AND RMLST 
ENTRY, DETERMINE 
DESTINATION AND SET QR 
WITH LOCATION OF CODING 
FOR THAT DESTINATION 


ENTER HERE 
FOR GETTING 
A LINK FOR 
J* WITH QR 
SET 


REMOVE OLD 
LINK NUMBER 
FROM RMLST 
ENTRY 


a 
ANOTHER LINK 
<an BLINK LAST 
ASSIGNED TO 
THIS CHAIN? 


No 


STORE THIS 
NEXT LINK 
NUMBER IN 

RMLST ENTRY 


ADD 1 TO 
LINK NUMBER 


AVAILABLE LINE 


IN CHAIN 
NUMBER DIVISIBLE FOR THIS 
BY 5% DESTINATION 


STORE O IN LINK 
FIELD OF CHAIN 
TO SHOW THE BLINK 
FOR THIS DESTINATION 
IS EXHAUSTED 


SET BLOCK DATA IN 
RMLST ENTRY FOR 
NEW LINK 
SET BIT IN TYPES 
OF DESTINATIONS 
FOR THIS KIND 


WAS No 
REQUEST FOR LINK p 
OR J*? 


Yes 
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EOJ (EP4) 
. MSYOT 


COMPUTE BLINX 
NUMBER FROM 
THE NEW LINK 


BIT SET IN 
BLINK TABLE SAYING Yes 
THIS BLINK CONTAINS 


SOME J*? 


CHANGE BIT IN BLINK 
WORD TO SAY IT 
CONTAINS J* AND 
THEN RECOMPUTE 

CHECKSUM 


Is 
SECOND 
RMLST ENTRY 
ORD=0? 


RETURN 


STORE NEW LINK 
NUMBER IN SECOND 
WORD ALSO, THIS 
IS FIRST LINK 
FOR REPORT 


RETURN 
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CPB-~1500 


EOJ (EP4) 


. MSYOT 


. SHUT 
.CRBGT 
S 
COUNT i 
OF AVAILABLE D - OPEN D .GRELC D 
RO? 
No 


Is 
CHECKSUM 
ORRECT? 


No. DISASTER 
FAULT 


Yes 


SEARCH BLINK TABLE FOR ONE AVAILABLE 
AND COMPUTE ITS NUMBER IF .SGNPA+4=0, 
STORE BLINK NUMBER THERE AS ITS CONTROLLING 
J*,MARK ENTRY IN BLINK TABLE AS TAKEN, 
ENTER ITS DESTINATION CODE AND CONTROLLING 
J* BLINK NUMBER FROM .SGNPA+4, COMPUTE LINK 
NUMBER AS 5 TIMES BLINK NUMBER -4 AND 
ENTER INTO RMLST ENTRY, PUT LINK+l IN CHAIN 
OF THIS DESTINATION FOR NEXT AVAILABLE, 
REDUCE BLINK COUNT BY ONE; RECHECKSUM THE 
BLINK TABLE 


GIVEG 


Yes MAKE ENTRY IN 
p GEOT QUEUE 


REQUESTING LINKS 
BE RELEASED 
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EXCA (EP5) 


. MSYOT 


EXCA -— 


STORE CONTENTS 


OF X4 IN 
DCWST+6 


SAVE 


REGISTERS 
0,1,2,3 


No 


WRITE RECORD 
ON EXECUTION 
REPORT 


RESTORE 
REGISTERS 
0;152535% 


EXIT 


WRITE EXECUTION REPORT MESSAGE 


(ABSOLUTE LOCATION) 


EP5 
WRITE MESSAGE ON 
EXECUTION REPORT 
WHERE X4=ABSOLUTE 
LOCATION OF MESSAGE 


TS Yes SET STATE 
1/0 NOW IN &! FOR WAITING 
PROGRESS? AT MAIN 


LEVEL 


No 
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TURN OFF 
WAITING AT 
MAIN LEVEL 

STATE 


CPB-1500 


GEIN (EP6) 


.MSYOT 


PROCESS CALL FROM GEIN 


EP6 
FROM GEIN 
WITH CODE IN 
WORD AFTER 
CALL 


GEIN = 
\J 


LOAD X2 WITH 
BSOLUTE LOCATION 
OF CALL+1 


| WREXR 
OVE AR ON ENTRY TO .STEMP+7 IN CASE WRITE END OF 
CISNUMB IS THERE,MOVE BLOCK DATA FROM v JOB FLAG ON 
RMLST ENTRY TO 0-23 OF .SGNPAt+ EXECUTION REPORT 


Y, 


Yes (ws) 
> 
TURN OFF ALL IcvcerT 
Yes : Ss 


DESTINATION GIVE JOB 


BITS IN 
RMTLK+2 


TO GEOT 


\J 
No 

J 
No 


¥. 


IF CODE =1, Y 
STORE 0 IN 
BLINK WORD 

OF .SGNPA PAT 
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DISP 
. MGEOT 


DISPATCHER 


ADD 1 TO 
MAINL TO 
SHOW WE ARE 
OPERATING AT 
MAIN LEVEL 


LOAD X4 WITH 
SUBPROGRAM NUMBER 
WHERE WE LEFT. OFF 
(ORIGINALLY=0) , 
LOAD AR WITH 
THING COUNT 


STORE AR IN 
LTHNG SO WE 
CAN TEST COUNT 

OF EVENTS 
SINCE NOW 


UBPROGRAM\ y,. 
IDENTIFIED BY X4 
IN EXECUTION? 


FMWER+ 
FMEOR+FMEOJ 
+FMTRA 


PUT ORIGIN 
OF SUBPROGRAM 
IN X3 


No 


SAVE X4 IN LFTOF, 
TURN OFF ALL 
STATE BITS 
EXCEPT DEVICE 
TYPE AND FMINX 


DISPB DISPB 


OCATION 
GIVEN IN 
LOWER STATE 
AT DISPA 
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ERROR 


SAVE X4 
IN LFTOF 


DISPB 


ADVANCE X4 TO 
INEXT SUBPROGRAM 
NUMBER, GOING 
BACK TO O IF 
NECESSARY 


DISP 
. MGEOT 


ADD OUR COUNTERS TO 
MASTER COUNTERS AND 
SENT OURS TO ZERO FOR 

.CRTSR, .CRTSN, .CRTRR, 
AND .CRTSD 


LOOK FOR ENTRY 
IN INPUT QUEUE 
AND DO NOT COME 
BACK IF THERE Ig 
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MORE ROOM . 
EQUAL? IN .CRSYQ? 


MOVE 3 WORD ENTRY 
FROM .CRSYQ TO DATA, 
REFRESH TALLY IF 
REQUIRED, SET 
X4 NONZERO 
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; | DISP 
. MGEOT 


Yes 
u 
0 A | 
SUBPROGRAMS\_ Yes UNNIN REQUEST 
HAVE WRITE ERROR SUBPROGRAMS YP COUNT IN .SRQCT 
STATUS WITHOUT WRITE ERROR =0? 
SET? STATUS SET? 
No Yes 
IN 
q v —-- —1 SLAVE 
MODE 
SUBPROGRAM 
REQUIRING 
Yes STORE 0 & Se cee oy ATTENTION 
- y A CK p 
IN MAINL Bees BREAKS ROADBLOCK 


TO ENTER MAIN 
LEVEL HERE 


LOAD QR WITH 
VALUES TO s 


ALERT IN 
1 MINUTE 
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SAVE X4 IN 
LFTOF TO SHOW 
SUBPROGRAM 
LAST SERVICED 


FIND JOB IDENTIFIED 

IN JOBID IN SNUML 
TABLE, MARK DESTINATION 
JUST COMPLETED AS 


TURN OFF 
FMEOR 
STATE 


FINISHED, BUILD ACCOUNTING 


RECORD (TYPE 2) 


-CALL .MIOS 
EP 13 TO 
WRITE ACCOUNTING 
DATA 


CALL .MGOU1 
EP 2 FOR 
END BANNER 


UPPER 
=LOWER OF 
RPTS? 


Yes 


No 


ADD 1 TO LOWER OF 
NRPTS FOR REPORT COUNT, 


LOAD Xl WITH JLIST 
POINTER FROM 
JLPTR LOWER 


Yes 


STORE IC+2 IN 
RMCCSW, 2 IN 
DATA, ID OF 
LINE IN DATA+1, 
AND TERMINAL 
TYPE IN DATA+2 


RETURN TO SLAVE 
MODE, SET FCWEB 
AND FCWIN ON, 
ISSUE WRITE 
COMMAND FOR 
BANNER 
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RELEASE GIVE, 
5. OR MORE? 


Yes 


Wy 


HAS 
I/O FOR BANNER 
FINISHED? 


Yes 


TURN OFF ALL 
STATES EXCEPT 


FMINX, FMDPR, 
FMDPU, FMDRM, 
FMERM, FMRLS 


Is 
DEVICE 
PRINTER? 


Yes 


LOAD QU WITH -1, 
SET ZERO 
INDICATOR FOR 
NUMBER OF 
PRINTER JOBS 
WAITING 


No 


»| | RELINQUISH 


HAVE WE Yes 
DSEVER RELEASED D0 
N BLINKS? STARTED LAST 
RELEASE? 
No 


RELEASE 
ANY BLINKS 
POSSIBLE 


CONTROL 


No 


Yes 


LOAD QR WITH -1, 
SET ZERO 
INDICATOR FOR 


NUMBER OF 
PUNCH JOBS 
WAITING 
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DISP 
. MGEOT 


CPB-1500 


ADJUST NUMBER 
AND TYPE OF 
DEVICES RUNNING 
IN NDEVR BY 
CONTENTS OF QR 


RELEASE 
DEVICE 


TURN OFF ALL 
STATE BITS FOR 
SUBPROGRAM, 
STORE 1 IN UPPER 

OF MAINL FOR 
RELEASE FLAG 


WAS THIS STORE LOCATION OF 
SUBPROGRAM IN EOMEM, 
T THE END OF STORE O IN PNORG OF 

OUR MEMORY? THIS SUBPROGRAM, PUT 


1024 IN QL 


RELEASE 
MEMORY 
AS PER QR 


No 
AT HIGHEST MEMORY 
LOCATION NOT IN 
EXECUTION? 
“nv 
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CPB-~1500 


ENTER 
MASTER 
MODE 


Yes 


SEARCH .CRSNB 
LIST FOR SLAVE 
PROGRAM WHOSE 
LAST CHARACTER 
IN LIST ENTRY 
IS=17 OCTAL 


LOOK AT INPUT 
QUEUE AGAIN 


D> 


ROADBLOCK 


-GITYM 
TO TYPE 
EXEUNT GEOT 


SET 
URGENCY 
TO ZERO 
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RETURN TO 


SLAVE MODE 


DISP 
. MGEOT 


CPB-1500 


ERROR 


ENTER 


WACMTD 
MAvVALN 


MODE 


GET CURRENT 
TIME OF DAY. 
AND DESCRIPTION 
OF OUTPUT DEVICE, 
THEN RETURN TO 
SLAVE MODE 


PASSED SINCE TIME 
CELL WAS” 
SET? 


RESET TIME 
CELL TO 
PRESENT TIME 


RELEASE? 


Yes 


DISPB . 
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PUT DEVICE 
IDENTIFICATION 
INTO MESSAGE. 
PLEASE, 
FIX SYSOUT... 


ENTER 
MASTER 
MODE 


. QUEUE 


TYPE MESSAGH 


CPB-1500 


TO RELEASE 
DEVICE ASSIGNED 
TO SUBPROGRAM 
IDENTIFIED 

BY X4 


ENTER 
MASTER 
MODE 


LOAD XO WITH 
SCT POINTER 
FOR DEVICE 
RESET BIT 
FOR ASSIGNED 


PUT PROGRAM 
DEVICE Yes NUMBER AND 
ASSIGNABLE? D D URGENCY OF 
ALLOCATOR 
IN QR 
No 
J 
STATUS is 
BACK FROM LAST D GRELC D 
RELEASE 
MESSAGE? 


PUT IDENTITY 
OF DEVICE 
IN MESSAGE 
TO INFORM 

OPERATOR OF 

ITS RELEASE 


.GITYM 


FOR RELEASE 
MESSAGE 
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DISP 
. MGEOT 


. CALL 
-MDISP 
EP6 
TO ENABLE 


ALLOCATOR 


CPB-1500 


START REPORT/ACTIVITY 


LOAD X1 WITH 
JLIST POINTER 


FROM JLPTR 
LOWER 


X1 Yes SET FMEOJ 
CILPTR UPPER? STATE=1 
(ON) 


No 


EXTRACT ACTIVITY 

DEFINING WORD 

FROM JLIST, SET 

ACTNO WITH ACTIVITY 

NUMBER, NRPTS WITH 

TOTAL COUNT, CURRENT 
=] 


GET 2 WORD 
REPORT DESCRIPTION 
FROM JLIST AND 

STORE IT IN 


MOVE $ REPORT 
IMAGE FROM 
JLIST TO 
STATUS WORDS 


STRPB 


SAVE UPDATED 
JLIST POINTER 
IN LOWER OF 


JLPTR, UPDATE 
REPORT AND 
RECORD COUNTS 
IN_VOLUM 


336 CPB-1500 


< STACT 
. MGEOT 


No 


ENTER FROM REPORT DESCRIPTION 
MASTER INITIALIZE AS FOLLOWS, 
MODE FIRST LINK NUMBER IN CURLK, 
0 IN CURBK, OLDLK AND REPOS, 
LAST LINK NUMBER IN LASLK, 
BLOCK NUMBER WHERE REPORT 
ENDS IN’ LASBK, 
NUMBER OF WORDS TO USE IN 
-CALL .MGOU3 LAST BLOCK IN NWLBK (THIS 
EP1 NUMBER MUST BE > 0) 


SET STATE FOR 
FCWEB, FCWOK, 
FCROK, FCRBL, 
THEN MOVE 
BUFAB TO NWDPR 


RETURN TO 
SLAVE MODE 


Yes 


READ 


SET STATE 
FOR FCWEB, INITIATE 


READ 


FCWIN, FCROK, 
FCRBL 


¢ 


READ 


INITIATE 
READ 


ISSUE WRITE 


ESTABLISHED 
BY .MGOU3 
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READ INTO BUFFER 


READ 


CHANGE 
N 
o FCRBL 
IN STATE 
ADD DELTA TO 
SEEK+1 AND No ~ 
STORE IN SEEK 
AND SEEK+1 
Yes No (w= 


SET FCBER 
READA =1 IN RETURN 
STATE 


SET DCW 
FCWBA Yes IN CRDCW 
=0? TO READ 


INTO BUFFER A 


No 


SET DCW 

IN CRDCW 

TO READ 
INTO BUFFER B 


CHANGE FCRIN, 
FCROK IN 
STATE 


ADD 1 TO ISSUE READ 


COUNT OF FOR THIS 
READS IN SUBPROGRAM Ber Oe 


CRTSD USING SEEK 
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SET SEEK 
AND SEEK+1 
TO ZERO 


ENTER 
MASTER 
MODE 


CONVERT LINK 
NUMBER IN UPPER 
OF CURLK TO 
SCT POINTER AND 
LINK NUMBER 


STORE SCT AND 
LINK NUMBER IN 
FIRST WORD OF 

SUBPROGRAM INPUT, 
PAT AND STORE 
LINK NUMBER IN 
UPPER OF FIFTH 

WORD 


SLAVE 
MODE 
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READ 
. MGEOT 


CPB-1500 


WRITE FROM BUFFER 


IF FCBFT=1, SET 
IT TO O IN STATE, 
STORE 0 IN STWR+1 
FOR LAST MEDIA 
CODE, LOAD X2 FROM 
LOWER OF NWDPR 


LOAD X6 WITH 0 
FOR DCW COUNT, 


es LOAD X7 WITH 


LOCATION OF FIRST 
DCW 


LOAD X2 
WITH LOCATION 
OF BUFFER B 


<= 


LOAD X2 WITH 
LOCATION OF 
BUFFER A 


PUT CONTENTS 
OF X2 PLUS 320 


IN UPPER OF 
NWDPR 


T 
UPPER ‘i 
OF FIRST BUFFED—— 
WORD=0? 
Yes 
1s 
FIRST BUFFER 
Yes 


ORD AN END OP 
JOB FLAG? 


No 


STORE CONTENTS OF 
X2 ADDED TO CONTENTS 


OF LOWER OF FIRST 
WORD IN UPPER OF 
NWDPR, ADD 1 TO x2 
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IF CURBK = MAX 
VALUE, STORE 1 
IN CURBK, 


IF CURBK # MAX, 
ADD 1 TO CURBK 


BOTH 
CURBK = 
LASBK AND CURL 

=> LASLE~ 


Yes 
STORE CONTENTS OF 


X2 PLUS CONTENTS OF 
NWLBK IN UPPER OF 


NWDPR, AND SET 
FCBER = 1 IN STATE 


CPB-1500 


wv 


DOES. 
LOWER OF 
BUFFER WORD VIADX2 
MATCH ENTRY“IN 
RCTAB? 


Yes 


EDIA CODE 
IN X2 BUFFER 
WORD = Q? 


Yes 


No 


SAVE MEDIA 
CODE FROM 
BUFFER WORD 
IN STWRt+1 


BUILD DCW FOR 
LOGICAL RECORD VIA X2 
AND STORE VIA X7, 
AND 1 TO X6 AND X7, 
SAVE X2 IN LOWER 
OF STWR+1 


WRITE 
. MGEOT 


ADD LENGTH OF 
LOGICAL RECORD 
VIA X2 TO X2 


ADD 1 TO X2 AND 
STORE X2 IN LOWER 
OF NWDPR AS LOCATION 
OF NEXT POTENTIAL 
LOGICAL RECORD 


X2 
2 UPPER OF 
NWDPR? 


DOES LOWER 


SE “BUFFER WORD -yeg 
VIACX2 Scene ILLER D 
or rear 
POINTER? 


No 


OES. 
i LOWER OF 
4 °_ BUFFER WORD VIADK2 —<% 


HOW A MEDIA 


“cqpge?” 
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s 


<> (=m) 7 


READ 


INITIATE 
NEXT READ 


Yes 


No 


EXCHANGE 
FMEOR AND RETURN 
FCBLL STATES 


SUBTRACT 
3 FROM X6 RETURN 


SET COMMAND WORD IN WRITE SELECT 
SEQUENCE WITH REMOTE ID, ACCEPT 
OUTPUT CODE (ACCEPT LAST IF 
FCBER = 1), LOCATION OF DCWS, 
LOAD QR WITH COUNT OF DCWS FROM X6 


No 


Yes 


MOVE POINTER FOR 
LAST RECORD FROM STWR+1 
TO TALLS, BUILD COMMAND 
FOR BINARY OR BCD, ADD 
TO CARD COUNT IN CRTSN 


SET STATUS WORD No 
FOR SPECIAL 


GEPR OVERRIDE 


ENTER X6 
AND CODE FOR 
MULTIRECORD 

INTO WRITE 
COMMAND 


ADD TO 
LINE COUNT 
IN CRTSR 


342 CPB-1500 


EXCHANGE 
FCWIN AND 
FCWOK STATES 


ISSUE WRITE 
FOR THIS 
SUBPROGRAM 


STORE ZERO 
IN CONTROL 
WORD VIA X2 
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LOWER 
OF CONTROL 
WORD = 


770074 


600000 


70374 
or 470374 


20374 


All Else 


WRITE 
. MGEOT 


LOWER OF 
—— — —| CONTROL WORD 
= 50374 


CPB-1500 


s 


RECORD NEW NULNK 
LINK DATA 


LOAD QR WITH 

SCT POINTER AND 
He , >| LINK NUMBER 
FROM LOGICAL 

RECORD VIA X2 


MOVE UPPER OF 
OLDLK TO LOWER 
OF OLDLK AND 
MOVE CURLK TO 
UPPER OF OLDLK 


ENTER 
MASTER 
MODE 


CONVERT VALUE 
IN QR TO 
SEQUENTIAL LINK! 
NUMBER USING 
TABLE AT .CRSYQ 


PUT NEW LINK 
VALUE FROM 
LOGICAL RECORD 
VIA X2 IN AR 


EXCHANGE 
STATES FOR 
FCBLL, FCRBL, 
AND FCRNL 


CURLK 
= LASLK AND LASBK 


No 


= 0? 


INITIATE 
READ FROM 
NEW LINK 


RETURN : RETURN 
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WRITE 
. MGEOT 


REPRT = 0? >X2 D 


STORE STATE 
IN REPRT 


MOVE 22 WORDS 
OF LOGICAL 
RECORD TO 

BUF AM 


AS ONE WAY 
SWITCH 


os j 


No 


CHANGE CONTROL 
WORD VIA X2 
TO 374 FROM 

50374 


. CALL 
-MGOUL 
EP3 
FOR IDENT 
BANNER 


LOAD X2 WITH 
LOCATION OF 
CURRENT BUFFER, 
LOAD X6 WITH 14 
SET X7 FOR 
15TH DCW 


RETURN 
TO SLAVE ? 
MODE 
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WRITE 
» MGEOT 


<> . (=x) 
Yes 
Yes 


SET FCBFT = 1, 
SET TALLS TO 


CONTENTS O08 
JLPTR UPPER 


LOAD X5 WITH START OF RECORD VIA X2, 
LOAD QR WITH LINE ADDRESS FROM FIRST 
WORD AND ITS SPECIAL CHARACTER, 
REPLACE SPECIAL CHARACTER OF FIRST 
WORD WITH BLANK, SUBTRACT 1 FROM WORD 
COUNT IN CONTROL WORD, ADD 2 TO X2 
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No TALLS = Ye 
ENDBF? 
No 


EXPAND LINE ADDRESS TO 
BCD AND STORE IN EXPANSION 
BUFFER VIA STALY, PUT 
SPECIAL CHARACTER AND 
BLANKS IN NEXT WORD 
OF BUFFER 


LOAD X1 
WITH 8 
FOR WORDS 
PER LINE 


CPB-1500 


WRITE 
. MGEOT 


SET X2 FOR START OF 
NEXT LOGICAL RECORD, 
COMPUTE NUMBER OF EXTRA 
WORDS EXPANDED, INSERT 
SLEW CHARACTERS IN BUFFER 
AFTER LAST GOOD ONE 


EXPAND BINARY 

WORD VIA X2 TO 

BCD AND STORE 
IN BUFFER 

FOLLOWED BY 

2 BLANKS 


ADD 1 TO X2 
REDUCE X1 BY 1 


No 


Yes 


INSERT CODES TO 


SLEW 1 IN BUFFER, SAVE X2 AS 


BUILD DCW FOR 21 POINTER TO 
WORDS OF BUFFER NEXT LOGICAL 
RECORD IN 


AND STORE VIA X7, 
ADD 1 TO X6 AND X7 


~ (we 
i) 


LOWER OF NWDPR 


COUNT VIA X5 


REDUCE WORD 
COUNT VIA X5 
BY 8, ADD 8 TO 
LINE ADDRESS 
VIA X5 


SUBTRACT 2 FROM X2, ADD 1 TO 
WORD COUNT VIA X5 AND STORE 
VIA X2, MOVE LINE ADDRESS VIA 
X5 AND X2, SAVE X2 AS LOCATION 
OF RECORD IN LOWER OF NWDPR 
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WRITE 
. MGEOT 


PROCESS 


END OF 
ACTIVITY RECORD 


PROCESSING No 


Yes 


= 0 


ae) 
PUT LOWER OF 
JLPTR IN UPPER 
No OF JLPTR, PUT 
LOCATION OF JLIST 
FOR CURRENT ID 


IN LOWER OF JLPTR 


Yes 


PUT LOWER OF 
JLPTR IN UPPER 
OF JLPTR, PUT 


LOCATION OF 
JLIST IN LOWER 
OF JLPTR 


SET FCWE 
FMDPR = 0? >~£5 . B 


AND FCBER = 1 


No 


SET ENDBF TO 
21 TIMES NUMBER 


REMOVE ENTRY 


OF DUMP IMAGES Yes FROM WRITE 
THAT WILL FIT RETURN STACK 
BETWEEN JLIST 

AND FIRST BUFFER 

No 
No 
Yes 
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EOAR 
Yes . No 


REPORTS WITH MASK 
D OF RJMK1, COUNT 
IN XO MATCHES 


~ SEARCH LIST OF 


WITH RICMP 
Yes 
v ¥ 
OLD : 
SYSOUT ve = 
STATE SHOW TOO MANY é 
OF SOMETHING? 
Yes No 
COMBINE XO 
WITH RJACT AND 
eau STORE IN NEXT 
SLOT OF JLIST 
VIA JLPTR 
y SET XO TO NEXT 
LOCATION IN JLIST, 
Yes INCOMPLETE SET Xl = 0, 
v RETURN SET X5 TO LOCATION 
OF FIRST REPORT 
DESCRIPTOR 
No 


SUBTRACT 


3 FROM X6 


TATE 
“SAY TOO MANY 
DESTINATIONS? 


No 


Yes 


PUT DCW FOR 
MESSAGE REGARDING 
EXTRA REPORTS 
IN DCW LIST 
VIA X7 AND ADD 
1 TO X6 AND X7 


PUT DCW FOR 
MESSAGE IN 


LIST VIA X7 
AND ADD 1 TO 
X6 AND X7 


349 


WRITE 
. MGEOT 


CPB-1500 


WRITE 
. MGEOT 


ADVANCE X5 
AND Xl FOR 
ENTRY 


REPORT COUNT 


MOVE FIRST 
DESCRIPTOR 
WORD TO 
JLIST VIA XO 


SAVE XO AS 
NEW JLPTR 


No 
Yes 
SEARCH SREPORT PUT ZERO WORD 
RECORD IN FOLLOWED BY 
RJAD BUFAM FOR URLK AND CURBK 
REPORT MATCHING IN JLIST AND 
THIS ONE 


UPDATE JLPTR 


OVE SECOND WORD 
TO JLIST AND ADD 
2 TO XO FOR 
NEXT ENTRY 


ADD 7 TO UPPER 
OF SECOND DESCRIPTOR 
WORD, MOVE IT TO JLIST 
VIA XO, MOVE THREE 
SREPORT WORDS TO 
JLIST VIA XO 


ADVANCE 
XO TO NEXT 
POSITION 


350 CPB-1500 


ADD ONE 
TO THING 


EXCHANGE 
FCRIN AND 
FCROK STATES 


COURTESY CALL FOR READ 


READ COURTESY CALL 
TRANSFERS HERE WITH 
X3 = LOCATION, 
X4 = NUMBER OF 
SUBPROGRAM 


LOAD AR WITH 
MAXIMUM SIZE 
BLOCK ALLOWED 

FOR REMOTE 
DEVICE TYPE OF 
CURRENT REQUEST 


EXCHANGE FCWBA 
STATE TO SWAP 
BUFFERS 
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PROCESS DATA 
IN BUFFER 
FOR REMOTE 


CCCRD 
. MGEOT 


CPB-1500 


CCCRD 
» MGEOT 


WRITE 


INITIATE WRITE 


FROM RECORD 
JUST READ 


FCBLL 
= 1 OR FCBER 
= 1? 


Yes 


No 
READ 
Yes 
INITIATE READ 
INTO OTHER 
BUFFER 
No 


EXCHANGE 


FCRNL STATE 


Yes 


ENTER 
MASTER 


MODE 


<e . 
No 


CHANGE ROADBLOCK 
TO RELINQUISH 


END Yes 
> IN STATE SAVED 
COURTESY CALL BY COURTESY 


CALL AT 47 


No 


END 
COURTESY CALL 
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LOAD X2 WITH 
LOCATION OF 


BUFFER 
IMPROPERLY 
LOADED 


Yes 


No 


LOAD X1 WITH 
LOCATION OF 
PRINTER MESSAGE 
AND SET TO 
MOVE 13 WORDS 


MOVE IMAGE 


FROM VIA X1 
TO VIA X2 


ENTER CONTROL 
WORD FOR END 


OF JOB AFTER 
MESSAGE IN BUFFER 
AND SET FCWER = 1 


Yes 


No 


LOAD X1 WITH 
LOCATION OF 


SPECIAL ERROR CARD 
IMAGE AND SET TO 
MOVE 29 WORDS 


CONVERT CURLK 
VALUE TO BLINK 
NUMBER 


ENTER 
MASTER 
MODE 
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CCCRD 


. MGEOT 
bi CCREE 
Go ) (= 
Yes 
URRENT Yes 
REPORT FOR y 
PRINTER? 
No 
IN 
SLAVE 
MODE 
1 
I 
SET BIT IN 
LINK DESCRIPTOR ms 
SHOWING ERROR 
CPB-1500 


CCCWR 
.» MGEOT 


CCCWR = S 


ADD ONE 


TO THING 


No 
Yes 
IS re 
STATUS CHANNEL>—2 
READY? 
Yes 
CCWRA 


EXCHANGE FCWIN 
AND 
FCWOK STATES 


INITIATE 
ADDITIONAL WRITE 
FROM BUFFER 


COURTESY CALL FOR WRITE 


WRITE COURTESY 
CALL TRANSFERS 
HERE WITH X3 = 
LOCATION, X4 = 
NUMBER OF SUBPROGRAM 


LOAD XO WITH 
LOCATION OF 
END SREPORT 
MESSAGE 


MOVE LAST 
PUNCH RECORD 
VIA TALLS TO 
LOCATION IN 
LOWER OF BUFAM 
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No 


CPB-1500 


SAVE RECORD COUNT RESIDUE 
(+1 IF INITIATION INTERRUPT) 
IN CCERA, SAVE COUNT OF 
RECORDS DONE OK IN CCERN, 
RESET STATUS ON DEVICE 


LOAD XO 
WITH LOCATION 
OF MESSAGE 

FOR TYPE 
OF ERROR 


SAVE XO 
IN DCW 
LIST FOR 
MESSAGE 


IDENTIFY DEVICE 
AND BUILD 
DESCRIPTION p - QUEUE . GITYM ; 
IN MESSAGE 


© BEFORE OR AFTER 


CCCWR 
. MGEOT 


TOP OF PAGE >t 


No 


STATUS ALERT 
Yes 


PRINTING? 


Yes No 


LOAD Xl 
WITH CCERN 


REPLACE LAST 


ONE FOR TYPE 
OF ERROR 


LOAD Xl 
WITH CCERN-1 


ISSUE GESPEC AND 
REQUEST STATUS WITH 
CC AT CCGSP, GET 
TIME AND SAVE IN 
TIME, SET FMWER = 1 


SLAVE 
MODE 
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CCGSP 
. MGEOT 


COURTESY CALL FOR GESPEC 


GESPEC COURTESY 

CALL TRANSFERS HERE 
WITH X3, X3 = LOCATION, 
X4 = NUMBER OF 
SUBPROGRAM 


EXCHANGE 
FMWER 
STATE 


IS 
SUBSTATUS 
>—7? 


FMDPR = 0? SX? 


No 


WAS 


No MESSAGE FOR START—2S 


$ 

STATUS 

PUNCH ALERT OR 
SARD JAM? 


LET i = 
VALUE OF 


SUBSTATUS 
oS=i=7 


tac) 

te) 

a 
° 


Yes 


LOAD X1 
WITH CCERN 


SUBTRACT 
2 FROM 


X1 
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SAVE Xl IN 
CERH AS NUMBER 
OF DCWS NOT TO 
REPEAT 


MOVE LAST 
GOOD RECORD 
IMAGE TO AREA 

DESIGNATED 
BY BUFAM 


MOVE REMAINING 
DCWS TO TOP OF 
LIST, ADJUST 
RECORD COUNT IN 
WRITE COMMAND BY 
OK COUNT 


MOVE LOCATION IN BUFAM TO LOWER OF NWDPR AS 
LOCATION OF NEXT LOGICAL RECORD, 
BUILD AND STORE FILLER WORD 
AFTER RECORD VIA BUFAM TO SKIP 
TO FIRST DCW RECORD, SET FCWOK = 1 
SET FCWEB = 0 EXCHANGE FCWIN STATE 


SET FOR 

SPECIAL GEPR 
OVERRIDE, ISSUE 
WRITE COMMAND 


INITIATE WRITE 
BEGINNING 
AT NWDPR 


END 
COURTESY CALL 
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CCGSP 
. MGEOT 


CPB-1500 


CCGSP 
.» MGEOT 


1s 
SUBSTATUS 
=0? 


1S 
SUBSTATUS 
=0? 


PUT LOCATION 
OF STRPP 
IN x0 


Is 
SUBSTATUS 
=5? 


IS 
SUBSTATUS 
=2? 


SUBSTATUS 
NORMAL PRINTER 
BUTTON 


SET BACKSPACE 
LINE COUNT TO 
ZERO AND SUBTRACT 
ONE FOR BLOCK 
REPOSITION VALUE 


BLOCK 
REPOSITION VALUE CCBOA 


BACKSPACE 
LINE COUNT 
=0? 


No 
=0? 


REPOSITION AND 
RESUME WITH 
FCROK = FCWOK 
= FCWEB = 1 


END 
COURTESY CALL 
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No 
REPOS = 0? 


Yes 


Ku 
No 


LOAD XO WITH 
LOCATION OF 
WRDCW PLUS COUNT 
IN CCERN 


CCPRT 
PRINT LINE 
WITH DCW 
REFERENCED 
BY XO 


SUBTRACT ONE 
FROM CCERA 
AND ADD ONE 

TO CCERN 


SUBSTATUS = 1 
PRINT ONE LINE 
PRINTER BUTTON 


CCBLB 


LOAD AR 
WITH +1 
FOR FORWARD 
SPACE ONE 
BLOCK 


LINE COUNT 
= 0? 


Yes 


Yes 


No 


ADD AR TO BLOCK 
REPOSITION 


COUNT 


CCBRD 


REPOSITION AND 
RESUME WITH 


FCROK = FCWOK 


= FCWEB = 
=1 


END 
COURTESY CALL 


FCNOP 
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SET BACKSPACE 
LINE COUNT TO 
ZERO AND LOAD 


AR WITH -1 TO 
BACKSPACE ONE 
BLOCK 


. 


CCGSP 
. MGEOT 


CPB-1500 


CCGSP 
» MGEOT 


WRITE SUBROUTINE 
COMES HERE 
WITHOUT ISSUING 
WRITE COMMAND 
WHEN FCNOP = 1 


STORE X6 IN 
CCERA FOR DCW 
COUNT NOT 
DONE, SET 
CCERN TO ZERO 


WAS THE 
WRITE SUBROUTINE 


CALLED FROM READ—N2 
courtesy 
CALL? 
Yes 
ze Yes 


FCBLL = 1 OR FCBER 


INITIATE 
READ INTO 
OTHER BUFFER 


SET FCRNL, 

FCNOP, AND 
FCRBL STATES 
TO ZERO 
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CPB-1500 


SAVE XO AS 

DCW POINTER 
IN SELECT 
SEQUENCE 


SET FOR 
TOTAL GEPR 
OVERRIDE 


ISSUE COMMAND 
TO PRINT ONE 
LINE WITHOUT 

COURTESY CALL 
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SUBROUTINE 
TO PRINT A 
LINE WHOSE 
DCW IS FOUND 
BY_XO 


CCGSP 
. MGEOT 


CPB-1500 


CCGSP 
. MGEOT 


SUBSTATUS = 2 
FORWARD SPACE 
PRINTER BUTTON 


LOAD XO WITH 
LOCATION OF DCW 
OR LINE SAYING 
OPERATOR KILLED 
THE REPORT 


PRINT LINE 
WITH DCW 
REFERENCED 
BY XO 


EXCHANGE 
FCWER 
STATE 


TURN OFF 
ALL FC 
STATES 
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SUBSTATUS = 3 
FORWARD SPACE 
PRINTER BUTTON 


LOAD QR WITH 
+1 FOR FORWARD 
SPACE ONE 
BLOCK 


CPB-1500 


SUBSTATUS = 4 
INVALID LINE 
PRINTER BUTION 


LOAD XO WITH 
LOCATION OF 

DCW TO PRINT 
INVALID LINE 
MESSAGE 


PRINT LINE 
WITH DCW 
REFERENCED 
BY _ XO 


CCGSP 
. MGEOT 


SUBSTATUS = 5 
REVERSE/ REWIND 
PRINTER BUTTON 


LOAD XO WITH 
LOCATION OF 
DCW TO PRINT 
RESTART MESSAGE 


PRINT LINE 
WITH DCW 
REFERENCED 
BY XO 


LOAD XO WITH 
LOCATION OF 
STRPO 


STORE XO IN 
LOWER STATE 

AND SET 
FMTRA = 1 


CONVERT CONTROLLING J* 
BLINK NUMBER FOR JOB 
TO LINK NUMBER 
AND STORE IN CURLK, 
LOAD XO WITH 
LOCATION OF STPO 
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SUBSTATUS = 7 
BACKSPACE 
PRINTER BUTTON 


SUBSTATUS = 6 
BACKSPACE 
PRINTER BUTTON 


LOAD QR WITH 
No 1 IN LOWER 
= 0? . 
REPOS = 0? CCB6A TO BACKSPACE 
ONE LINE 
CCB6B CCB6B 
No 


ADD 1 TO CCERA, 
SUBTRACT 1 FRO 


CCERN TO BACKUP 
ONE DCW 


ADD QR TO 
REPOS 
WHERE UPPER 
IS FOR BLOCKS 
AND LOWER 
- FOR LINES 
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CCGSP 
» MGEOT 


SUBROUTINE TO 
REPOSITION FILE VIA 


CCBRD — — -{REPOS, SET STATE AS 
PER CALLING SEQUENCE, 
START READ 
Yes Yes 
CURBK = N3PLU? D REPOS POSITIVE? 
MOVE LAST 
LINK FROM 
CCBRA }g FCRBL = 0? ; OLKLK TO CURLK 


AND TWO BACK 
IN OLDLK TO 
LAST IN OLDLK 


IF BLOCK COUNT 
IN REPOS IS 
NEGATIVE, ADD 
ONE TO IT, 

ADD REPOS TO CURBK 


GET FIRST LINK 
NUMBER FROM 


Yes 
. —FP ? >| REPRT+1 FOR 


CURLK, SET 
CURBK = 1 


No 


MOVE LAST LINK 
FROM OLDLK TO CURLK 
AND TWO BACK (0 IF 

NOT AVAILABLE) IN OLDLK 

TO LAST IN OLDLK 


CCBRB 


IF CURBK > N3PLU, 
STORE N3PLU IN CURBK, 
IF CURLK = LASLK AND 
CURBK > LASBK, STORE 
LASBK IN CURBK 


ADD N3PLU 


TO CURBK 


Is No 
CCBRB CURBK > 0? 5 
Yes 
SUBTRACT 1 FROM CURBK, SET 1 
REPOS = 0, COMPUTE BLOCK 
ADDRESS FROM CURBK AND STORE 
CCBRB 


IN SEEK AND SEEK+1, SET STATE 
AS PER CALLING SEQUENCE, SET 
READ RETURN TO GO TO CCBRD 

CALLER 
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ASSIGN DEVICE AND JOB 


ASIGN 


NODEV Sh 
=NDEVR? 


No 
q RETURN 
UBPROGRAM No TO SLAVE 
NOT IN MODE IF 
EXECUTION? NOT NOW 
Yes 


X4 CONTAINS 
SUBPROGRAM 
NUMBER WE 
ARE ABOUT 
TO START 


ALL 
PUNCHES 
ASSIGNED? 


Yes No Yes 


PRINTERS 
ASSIGNED? 


.CALL 
=07 EP3 
TO ASK FOR 


PUNCH 


CALL 
-MALC2 
EP1 

TO ASK FOR 

PRINTER 


LOAD AR WITH VALUES 
FOR FMINX=FMDPU=1 

LOAD QR WITH ONE IN 

LOWER FOR PUNCH 


LOAD AR WITH VALUES 
FOR FMINX=FMDPR=1 

LOAD QR WITH ONE 

IN UPPER FOR PRINTER 


SET TO 
COMPARE 
NODEV TO 
NDEVR 
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CPB-1500 


STORE AR IN STATE 
TO MARK DEVICE 
AND IN EXECUTION, 
ADD QR TO NDEVR, 


PUT SCT OF DEVICE 
ASSIGNED IN OUTPUT 
PAT OF SUBPROGRAM 


4 


DOES N 
SUBPROGRA! 7 
HAVE LOCATION : p 
ASSIGNED” 


THIS LAST 
UBPROGRAM? 


Yes 


Yes 


INITIALIZE CELLS 
OF SUBPROGRAM 
WITH ALL ‘ 
NECESSARY 
INSTRUCT IONS 
AND VALUES 


ISSUE 
MME GEMORE 
D FOR 1024 


Yes 


WORDS OF 
MEMORY 


No 


SET RMSW=0, 

SET STATE FOR 
FMINX=FMDRM=1, 
SET CELLS OF 

SUBPROGRAM 


FOR REMOTE 
Yes 


TAKE VALUE IN 
EOMEM FOR 
LOCATION OF 
SUBPROGRAM, 
ADD 1024 TO 
EOMEM 


- QUEUE 


IN 
SLAVE 
MODE 
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a 
No OME OTHER Yes 


ASIGN 
. MGEOT 


TAKE SPACE 
FOR OUR 


SUBPROGRAM SUBPROGRAM 


WITH SPACE 


BUT NOT IN 
EXECUTION? 
No 


No 


TURN OFF 
ALL STATE 
BITS FOR 
SUBPROGRAM 


RELEASE 
DEVICE JUST 
ASSIGNED 


CPB-1500 


START JOB 


STRIJB 


Yes Yes 
FMDPR=0? : 


SUBTRACT ONE FROM NRPUJ, 
SET MASKS TO SEARCH J* 
FOR ONLINE PUNCH JOBS, 
LOAD AR WITH 
BIT FOR PUNCH JOB 


SUBTRACT ONE FROM NRPRJ, 

SET MASKS TO SEARCH J* 

FOR ONLINE PRINTER JOBS, 
LOAD AR WITH BIT 
FOR PRINTER JOB 


SEARCH SNUML 
LIST FOR JOB 
REQUIRING OUTPUT 
FOR DEVICE GIVEN 
IN AR BUT NOT 

YET STARTED 


SET FCROK 
=FCWEB 


GET SNUMB AND CONTROLLING J* 


T RET 
BLINK NUMBER FROM SNUML ENTRY, SET RETURN 


IN READ 
SUBROUTINE 
TO GO TO STPF 


MARK JOB STARTED IN SNUML, 
SET CURLK FROM J* BLINK, 
SET VOLUM = REPRT =0, 


TO MIDDLE 
OF READ 
SUBROUTINE 
1 
| 
| 
INITIALIZE FOR EMPTY JLIST, READ 
SEEK THIRD J* BLOCK, RETURNS HERE 
2 DUMP RECORDS , —_— — WHEN CALLED 


FIRST ACTIVITY FROM TYPE 


CALL SET FCRDJ=1, 

.MGOU1 SET FCWER =1 IF 
EP1 D>|DEVICE IS PRINTER, 

AND J* DOES NOT 


ISSUE WRITE 
COMMAND 


FOR SNUMB 
BANNER 


FOR SNUMB 


BANNER GO TO REMOTE 
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NEWJB 
» MGEOT 


ANALYZE INPUT REQUEST 


3 WORD ENTRY 


Is NOW IN DATA 
THRU DATA+2 


UPPER 


OF SECOND aes 
WORD =0? 
No 
Yes 


No 


ADD TO COUNT OF JOBS 
BY TYPE OF DESTINATION 
PRINTER, NRPRJ 
PUNCH, NRPUJ 
REMOTE, NRRMJ AND CRTRR 


RELEASE BLINKS 
AND REMOVE 
JOBS DONE 

FROM SNUML 


Yes 


MOVE 3 WORDS OF DATA 
TO NEXT LOCATION IN SNUML, 
STORE O IN NEXT SNUML WORD, 
AND STORE END POINTER 

IN PBNL 


Ww 


ADD ONE 
TO THING 


FOUND IN .CRSYQ 


CHARACTER 
OF FIRST 
WORD=07 


Yes 


I 
LOWER OF 
SECOND WORD 
EGAL REQUEST 
CODE? 
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2 @ 
<> ~ o*) 
<o, = @ 


( 


BUILD MESSAGE 
SAYING SYSOUT 


CANNOT COMPLY 


IN 


SLAVE 
MODE 

1 

| 
(os) 


CPB-1500 


- QUEUE 
.GITYM 


TYPE 
MESSAGE 


SET FMEXC=1, 


FLUSH 


ISSUE MINUS 
RELEASE GESPEC ON 
BLINKS DEVICE TO 

CANCEL OLD 


GES PEG 


SCT OF 

DEVICE TO 
RELEASE IN 
FIRST WORD 
OF DATA 


ENTER 
MASTER 
MODE 


SEARCH OUR 
PATS FOR SCT. 


OF DEVICE TO FMDPR=0? 
MATCH RELEASE SLAVE 
DEVICE SCT MODE 
| No 


«CALL 
«MALC2 
EP1 
TO ASK FOR 
PRINTER 
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Yes 


CALL 
-MALC2 


EP3 
TO ASK FOR 


No 


CPB-1500 


PUT SCT 
OF DEVICE 
IN PAT FOR 
CURRENT 
SUBPROGRAM 


RETURN TO SLAVE MODE, 
BUILD MESSAGE SAYING 
JOB IS BEING MOVED FROM 
FIRST DEVICE TO NEW 


EXCHANGE 
FMEXC 
STATE 


ISSUE GESPEC 
AND REQUEST 
STATUS ON 

NEW DEVICE 


-GITYM 
TYPE 
EXCHANGE 
MESSAGE 


GET TIME, 
AND STORE 
IN TIME OF 
SUBPROGRAM 


NEWJB 
.» MGEOT 


LOAD X2 
WITH CODE 
FOR PRINTER 


LOAD X2 
WITH CODE 
FOR PUNCH 


OUTPUT 
FINISHED FOR 
DESTINATION 


SHOWN EN 


MARK SNUML 
ENTRY FOR 
NOT STARTED 
AND NOT 
FINISHED FOR 
X2 DESTINATION 


ADD ONE 
TO NRPUJ 
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NEWJB 
» MGEOT 


LOAD AR WITH BLINK NUMBER 
FROM SECOND DATA WORD 
AND LOAD QR WITH MASK 

TO SEARCH ON BLINK NUMBER 

WITHOUT ERROR ONLY 


RELEASE BLINKS 
MATCHING AR 
WITH QR AS 

MASK 


ADD X2 TO 
COUNT OF 

AVATLABLE 
BLINKS 


RELBL — 


PUT 1-BITS IN 

LOWER OF QR TO 

SEARCH FIRST 

IN UPPER HALF 

WORDS OF TABLE, 
SET X2=0 

FOR COUNT 


RELBA 


SEARCH TABLE 
FOR VALUE 
MATCHING AR 
WITH QR AS 
MASK 


Yes 
FIND ONE? 


Yes 


ROTATE AR 
AND QR TO 
SEARCH THRU 
LOWER HALF 
WORDS OF 
BLINK TABLE 


AFIND 

VALUE IN Yes 
TABLE MATCHIN 
NAR WITH QR 

NAS MASK? 
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IN THAT HALF 
WORD TO MARK 


AR = WHAT TO 
LOOK FOR, 
QR = MASK TO 


LOOK WITH 


STORE .ZERO 


IN THAT HALF 
WORD TO MARK 


IT FREE AND 
ADD 1 TO X2 


DID 
WE FINISH 
TABLE? 


No 


STORE ZERO 


IT FREE AND 
ADD 1 TO X2 


DID 
WE FINISH 
TABLE? 


RELBA 


CPB-~1500 


FLUSH 


INITIALIZE 
CELLS THAT 
MUST REFERENCE 
SNUML WHILE 
IN MASTER MODE 
TO START AT SNUML+0 


MOVE COUNT OF 
FREE BLINKS TO 
FLUT3 AND STORE 
ZERO IN COUNT 
WITHIN TABLE 


SET 
FLUT4 = 0 
FOR COUNT 
OF BLINKS 
FREED 


RELEASE BLINKS 


MOVE NEXT 
UNPROCESSED 
SNUML ENTRY 

TO FIRST OPEN 

PLACE IN NEW 

LIST 


MOVE FROM 
NEW JOB 
BLINK NUMBER 
TO FLUBN 
FINISHED BITS 
TO FLUFN 


TOTAL = 
FINISHED? 


ANY 
SPECIAL 
REQUESTS 2 


LOAD AR WITH 
BLINK NUMBER 
AND QR WITH 
MASK FOR BLINK 
NUMBER AND 

WITHOUT ERROR 


RELEASE 
BLINKS THAT 
MATCH 
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ADD FLUT3 TO 


STORE AS BLINK 
COUNT IN TABLE 


FLUSH 
. MGEOT 


CPB-1500 


FLUSH 
» MGEOT 


FLUKE 


INISHED 
RELEASED? 


No 


ANY 
SPECIAL 
REQUESTS? 


LOAD AR WITH 
BIT FOR 
PRINTER AND 
QR TO TEST 
BLINK NUMBER, 


BLINKS TO BE 
RELEASED? 


No 


LOAD AR WITH 
BIT FOR PUNCH 
AND QR TO TEST 
BLINK NUMBER 
AND PUNCH 


No 
REMOVE RELEASED ADVANCE 
FROM FINISHED ANY NEW SNUML 
AND THEN REMOVE TO BE RELEASED? eOUNTER 70 
PECIALS GI 
; THOSE 7c ne ENTRY PUT IN 
RELEASED 
Yes 


ADVANCE 
OLD SNUML 
POINTER 


MARK DESTINATIO 


SHOWN IA AR RELEASE 
AS RELEASED DESIGNATED 
AND ADD BLINK BLINKS 


NUMBER TO AR 


ADD X2 
TO FLUT4 


DESTINATIONS 
TO. BE RELEASED? 


UPDATE 
RELEASED 
STATE IN 
NEW ENTRY 
FOR SNUMB 
IN SNUML 


Yes 


LOAD AR WITH 
BIT FOR FIRST 
REMOTE AND QR 
TO TEST BLINK 
NUMBER AND 

FIRST REMOTE 
WITHOUT J* 


FIRST Yes 


REMOTE BLINKS, 
>TO BE RELEASED? 


LOAD AR WITH 
BIT FOR SECOND 
REMOTE AND QR 
TO TEST BLINK 
NUMBER AND 

SECOND REMOTE 


LOAD AR WITH 
BIT FOR THIRD 
REMOTE AND QR 


REMOTE BLINKS. No 


THIRD REMOTE 
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FOR (EP1) 


.MGOU1 


CREATE FRONT BANNER 


EPL 
FOR FRONT 
BANNER 
X2=UPPER STATE 
X3=OFFSET TO 
SUBPROGRAM 


SAVE X4 IN ORX4 
SET FLAG TO ZERO 
PUT 55 IN TRACE 
SET CHAR TO X 


PUT BLANKS 
BETWEEN CHARACTERS 
OF SNUMB AND 
SAVE IN WORD1 
AND WORD2 


INITIALIZE SLFOR 
FOR T-O-P AND 
SLAFT FOR 3 LINES, 
GET LOWER OF BUFAB 
FOR LOCATION IN WHICH 
TO BUILD IMAGES 


BUILD PUNCH BANNER 
OF 27 WORDS STARTING 

IN SECOND WORD OF BUFFER 
WITH CONTROL WORD IN FIRST, 
BUILD CONTROL WORD IN 29TH 
FOR BLANK CARD WITH 

ZERO IN 30TH WORD 


ADD 1 TO TRACE 
TO BECOME 56, 


SET WRITE 


BUILD DCW FOR COMMAND 
SUBPROGRAM 27 WORD RECORD, TO PUNCH 
PUNCH? PUT LOCATION OF ONE BINARY 


IMAGE IN TALLS CARD 


IN CASE OF ERROR 


STORE WRITE 
COMMAND IN 
SUBPROGRAM 
AND SET STATUS 
FOR SPECIAL - 
GEPR OVERRIDE 


BUILD SECOND DCW 
TO PUNCH BLANK 
CARD AND SET 
WRITE COMMAND 
TO PUNCH TWO 
BINARY CARDS 
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FOR (EP1) 


. MGOU1 


BUILD 12 LINE IMAGES 
CORRESPONDING TO 12 ROWS 
OF CARD WITH THEIR CONTROL 
WORDS IN BUFFER +32, +47, 
+62, ETC. AND A SLEW ONE 
LINE IN THE END OF EACH 


PUT CONTROL WORD AND SLEW TO T-O-P 
IN BUFFER +30 AND 31, BUILD DCW 
STRING OF 14 ENTRIES FOR BUFFER +31, 
+33, +48, 463, ..., +213, ENTER 
COMMAND IN WRMME TO PRINT 14 LINES 
SET STATUS FOR SPECIAL GEPR OVERRIDE 


IF EXECUTION REPORT 
GOES TO PRINTER, PUT 
CONTENTS OF SLAFT IN 
14TH LINE, OTHERWISE, 
SET 14TH LINE TO SLEW 
ONE LINE 


Kent 


MAKE TRACE 
ENTRY WITH 
CODE SAVED 
IN TRACE 


BUILD LINE 14 
WITH -30-, DATE 
TIME, AND SLEW 
TO T-0-P 
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CREATE TRAILER 


EP2 
FOR TRAILER 
ENSIGN 


SAVE X4 IN ORX 
ADD 1 TO FLAG 


SET WORD1 AND 
WORD2 WITH 
— — SNUMB— — 
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ENSIGN 


AFT (EP2) 


. MGOU1 


CPB-1500 


IDENT (EP3) 


»MGOU1 


CREATE IDENT BANNER 


EP3 
FOR IDENT BANNER 
X2 = OFFSET TO 
CONTROL WORD FOR 
IDENT CARD 

X3 = OFFSET TO 
SUBPROGRAM 


SAVE X4 IN ORX4 
SET WORD1 AND 
WORD2 TO BLANKS 
PUT X IN CHAR 
SET TRACE TO ZERO 


SEARCH IMAGE OF 
IDENT CARD FOR COMMA 
IN THIRD NONBLANK 
FIELD AND MOVE NEXT 

9 CHARACTERS TO WORD1 
AND_WORD2 


DID 
WE RUN 
OFF CARD 
IMAGE? 


SET FLAG TO ZERO 

LOAD X2 AS THOUGH 

STATE SAID PRINTER, 

SET SLFOR FOR SLEW ONE 
SET SLAFT FOR SLEW T-0-P 
SET TO USE JLIST+50 

AS_ BUFFER 
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MOVE "GUESS 
WHO" TO 
WORD1 AND 
WORD2 


CPB-~1500 


CREATE REPORT HEADER 


EP1 
X3 = OFFSET TO 
SUBPROGRAM 


START 


SAVE X4 IN ORX4 
LOAD X4 WITH ABSOLUTE 
LOCATION OF SUBPROGRAM, 
INITIALIZE CELLS TO BULLD 
IMAGES IN BUFFER SHOWN 

BY LOWER OF BUFAB 

IN SUBPROGRAM 


BUILD CARD IMAGE 
WITH CONTROL WORD 

>| GIVING SNUMB, ACTIVITY 
NUMBER, REPORT CODE 
AND CARD COUNT 


ONE DECIMAL CARD, 
PUT LOCATION OF 
RECORD IN TALLS, 
AND ENTER PUNCH 
COMMAND _IN WRMME 


Is 
MEDIA CODE 


SET STATUS 
WORD IN 
SUBPROGRAM 
FOR SPECIAL 
GEPR OVERRIDE 
AND_RESTORE_ X 


«EXIT 


BUILD 2 PRINT IMAGES 
WITH CONTROL WORDS, 
FIRST, SLEW TO T-0-P 
SECOND, LINE GIVING 

SNUMB, ACTIVITY NUMBER, 
REPORT CODE, AND LINE COUNT 


BUILD TWO DCWS 


TO PRINT AND ENTER 
COMMAND TO PRINT 
2 LINES IN WR 


UILD THIRD LINE 
MAGE WITH DATA 
ROM ORIGINAL 

REPORT CARD 


BUILD THIRD 

DCW AND ADD 
ONE TO COUNT 
N PRINT COMMAND 
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INDEX 


ABORT 
TAKE DUMP FOR SYSTEM ABORT, FSB 
ABORT I/O FOR PROGRAM, ABTIO 


ABSOLUTE 
WRITE EXECUTION REPORT MESSAGE (ABSOLUTE), EXCA 


ABTIO 
ABORT I/O FOR PROGRAM, ABTIO 
ABTIO (EP9) .MIOS 


ACCOUNTING 
FORMAT ERROR ACCOUNTING RECORD, FMTAR 
ACCOUNTING FILE REQUEST, ACTFL 
NORMAL CLOSE OF ACCOUNTING FILE, ACTS1 
ERROR CLOSE OF ACCOUNTING FILE, ACTS2 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 


ACCUMULATE 
ACCUMULATE PROCESSOR TIME, DACNB 


ACTFL 
ACCOUNTING FILE REQUEST, ACTFL 
ACTFL (EP13) .MIOS 


ACTION 
GIVE I/O ACTION PRIORITY, FPRIO 


ACTIVITY 
PROCESS END OF ACTIVITY, EOA 


ACTS1 
NORMAL CLOSE OF ACCOUNTING FILE, ACTS1 
ACTS1 (EP1) .MACTS 


ACTS2 
ERROR CLOSE OF ACCOUNTING FILE, ACTS2 
ACTS2 (EP2) .MACTS 


ACTS3 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 
ACTS3 (EP3) .MACTS 


ADDRESS 
GET ADDRESS FOR FILE CODE, FGAD (.MFALT) 
GET ADDRESS FOR FILE CODE, FGAD (.MFLT1) 


AFT 
CREATE TRAILER ENSIGN, AFT 
AFT (EP2) .MGOU1 


ALARM 
SET ALARM, SCK 


381 


cz: 
192 


324 


192 
L932 


142 
198 
281 
282 
289 


26 
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ALLOCATION 
1. DISPATCHER AND PERIPHERAL ALLOCATION 


ALLOW 
ALLOW A PROGRAM TO DELAY, FWAKE 


ANALYZE 
ANALYZE INPUT REQUEST, NEWJB 


ASIGN 
ASSIGN DEVICE AND JOB, ASIGN 
ASIGN .MGEOT 


ASSIGN 
ASSIGN AN I/O ENTRY, QUEUE 
ASSIGN DEVICE AND JOB, ASIGN 


BANNER 
CREATE FRONT BANNER, FOR 
CREATE IDENT BANNER, IDENT 


BAR 
RESET BAR TO SMALLER AREA, FLBAR 


BITS 
RESET PROGRAM SWITCH WORD BITS, FGRET 
SET PROGRAM SWITCH WORD BITS, FGSET 


BLINKS 
RELEASE BLINKS, FLUSH 


BOOT 
CALL .MDUMP AT EP2, BOOT 
BOOT (EP13) .MFALT 


BUFFER 
SAVE TRACE BUFFER AND WRITE OUT, TRACF 
READ INTO BUFFER, READ 
WRITE FROM BUFFER, WRITE 


CALCULATE 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, 


CALL 
CALL .MDUMP AT EP2, BOOT 
PROCESS CALL FROM GEIN, GEIN 


CARD PUNCH 
CARD PUNCH INTERRUPT HANDLER, CPIT 
CARD PUNCH REQUEST, CPIO 
CARD PUNCH INITIALIZATION, .ICPIO 


CARD READER 
CARD READER INTERRUPT HANDLER, CRIT 
CARD READER REQUEST, CRIO 
CARD READER INITIALIZATION, .IGPIO 
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CCCRD 
COURTESY CALL FOR READ, CCCRD 
CCCRD .MGEOT 


CCCWR 
COURTESY CALL FOR WRITE, CCCWR 
CCCWR .MGEOT 


CCGSP 
COURTESY CALL FOR GESPEC, CCGSP 
CCGSP .MGEOT 


CHANNEL 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, ILPCX 
RESUME I/O ON CHANNEL, RSMCH 


CLOSE 
CLOSE SYSTEM GATES, SHUG 
NORMAL CLOS= OF ACCOUNTING FILE, ACTS1 
ERROR CLOSE OF ACCOUNTING FILE, ACTS2 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 


COMMAND 
CONNECT REISSUE OF SECOND TYPEWRITER COMMAND, TYPER 


CONNECT 
CONNECT MULTIRECORD SIMULATION DCW, STIOM 
CONNECT REISSUE OF SECOND TYPEWRITER COMMAND, TYPER 
CONNECT SELECTED GESPECED ENTRY, STGPC 


CONTROL 
RELINQUISH CONTROL, RLC 
RELINQUISH CONTROL UNTIL PROGRAM ENABLED, DSCNT 


COURTESY CALL 
END COURTESY CALL, ENCC 
COURTESY CALL FOR READ, CCCRD 
COURTESY CALL FOR WRITE, CCCWR 
COURTESY CALL FOR GESPEC, CCGSP 


CPIO 
CARD PUNCH REQUEST, CPIO 
CPIO (EP2) .MCPIO 


CPIT 
CARD PUNCH INTERRUPT HANDLER, CPIT 
CPIT (EP1) .MCPIO 


CREATE 
CREATE FRONT BANNER, FOR 
CREATE TRAILER ENSIGN, AFT 
CREATE IDENT BANNER, IDENT 
CREATE REPORT HEADER, START 


CRIO 


CARD READER REQUEST, CRIO 
CRIO (EP2) .MGPIO 
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CRIT 
CARD READER INTERRUPT HANDLER, CRIT 
CRIT (EP1) .MGPIO 


DACNB . 
ACCUMULATE PROCESSOR TIME, DACNB 
DACNB (EP9) .MDISP 


DATA 
PROVIDE DATA AND TIME OF DAY, FGTIM 


DCW : 
DCW POINTER VALIDATION, DCWCK 
CONNECT MULTIRECORD SIMULATION DCW, STIOM 


DCWCK 
DCW POINTER VALIDATION, DCWCK 
DCWCK .MIOS 


DEALLOCATE 
DEALLOCATE MEMORY, GMRL (.MFALT) 
DEALLOCATE MEMORY, GMRL (.MFLT1) 


DELAY 
ALLOW A PROGRAM TO DELAY, FWAKE 


DEVICE 
ASSIGN DEVICE AND JOB, ASIGN 


DISC 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 


DISP 
DISPATCHER, DISP 
DISP .MGEOT 


DISPATCHER 
1. DISPATCHER AND PERIPHERAL ALLOCATION 
DISPATCHER, DISP 


DIVIDE 


DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 


DMIOA 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 
DMIOA (EP12) .MDISP 


DO 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 


DRGP 
MDS200 ERROR AND EOF RECOVERY, DRGP 
DRGP (EP4) .MDR20 


DRIO 


MDS200 REQUEST, DRIO 
DRIO (EP2) .MDR20 
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DRIT 
MNS200 INTERRUPT HANDLER, DRIT 
DRIT (EP1) .MDR20 


DRSL 
MDS200 SELECT, DRSL 
DRSL (EP3) .MDR20 


DRSTR 
RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 
DRSTR (EP10) .MDISP 


DSCNT 
RELINQUISH CONTROL UNTIL PROGRAM ENABLED, DSCNT 
DSCNT (EP11) .MDISP 


DSGP 
DSU200 ERROR AND EOF RECOVERY, DSGP 
DSGP (EP4) .MDS20 


DSIO 
DSU200 REQUEST, DSIO 
DSIO (EP2) .MDS20 


DSIT 
DSU200 INTERRUPT HANDLER, DSIT 
DSIT (EP1) .MDS20 


DSP 
REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT, DSP 
DSP (EP1) .MDISP 


DSPQH 
PROGRAM NUMBER AT FRONT OF QUEUE, DSPQH 
DSPQH (EP7) .MDISP 


DSPQM 
PROGRAM NUMBER IN QUEUE FOLLOWING INTERRUPT, DSPQOM 
DSPQM (EP14) .MDISP 


DSPQT 
PROGRAM NUMBER AT END OF QUEUE, DSPOQT 
DSPOT (EP8) .MDISP 


DSSL 
DSU200 SELECT, DSSL 
DSSL (EP3) .MDS20 


DSU200 
DSU200 INTERRUPT HANDLER, DSIT 
DSU200 REQUEST, DSIO 
DSU200 SELECT, DSSL 
DSU200 ERROR AND EOF RECOVERY, DSGP 
DSU200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
DSU200 INITIALIZATION, .IDS20 


DUMP 
TAKE DUMP FOR SYSTEM ABORT, FSB 
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ENABLE 
ENABLE PROGRAM, ENB 


ENABLED . 
RELINQUISH CONTROL UNTIL PROGRAM ENABLED, DSCNT 


ENB 
ENABLE PROGRAM, ENB 
ENB (EP6) .MDISP 


ENCC 
END COURTESY CALL, ENCC 
ENCC (EP5) .MDISP 


END 
END COURTESY CALL, ENCC 
PROGRAM NUMBER AT END OF QUEUE, DSPQT 
LINK I/O TO END OF QUEUF, LINK 
PROCESS END OF ACTIVITY, EOA 
PROCESS END OF JOB, EOJ 


ENSIGN 
CREATE TRAILER ENSIGN, AFT 


ENTER 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 


ENTRY . 
MEMORY RELEASE ENTRY FOR TIME-SHARING, GMRLM 
ASSIGN AN I/O ENTRY, QUEUE 
UNLINK I/O ENTRY, UNLNK 
CONNECT SELECTED GESPECED ENTRY, STGPC 
MDS200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
DSU200 NEGATIVE ENTRY POINTS, NEGATIVE EP 


EOA 
PROCESS END OF ACTIVITY, EOA 
EOA (EP3) .MSYOT 


EOF : ; 
MDS200 ERROR AND EOF RECOVERY, DRGP 
DSU200 ERROR AND EOF RECOVERY, DSGP 


EOJ 
PROCESS END OF JOB, EOQJ 
EOJ (EP4) .MSYOT 


ERROR 
FORMAT ERROR ACCOUNTING RECORD, FMTAR 
MDS200 ERROR AND EOF RECOVERY, DRGP 
DSU200 ERROR AND EOF RECOVERY, DSGP 
ERROR CLOSE OF ACCOUNTING FILE, ACTS2 


EXCA 


WRITE EXECUTION REPORT MESSAGE (ABSOLUTE), EXCA 
EXCA (EP5) .MSYOT 
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EXEC 
WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 
EXEC (EP2) .MSYOT 


EXECUTION 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 
WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 
WRITE EXECUTION REPORT MESSAGE (ABSOLUTE), EXCA 


EXTERNAL 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 


FAULT 
2. FAULT PROCESSING AND SERVICE MME'S 
SECONDARY FAULT VECTOR, FPRC 
RECOGNIZE FAULT TYPE AND PROCESS, FLT 
FAULT PROCESSOR INITIALIZATION, .IFALT 


FCB 
PUT INFORMATION IN FCB, FGCON 
PUT INFORMATION IN FCB, FCON 


FCON 
PUT INFORMATION IN FCB, FCON 
FCON (EP2) .MFLT1 


FEMM 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 
FEMM (EP10) .MFALT 


FGAD 
GET ADDRESS FOR FILE CODE, FGAD (.MFALT) 
FGAD (EP2) .MFALT 
GET ADDRESS FOR FILE CODE, FGAD (.MFLT1) 
FGAD (EP1) .MFLT1 


FGCON 
PUT INFORMATION IN FCB, FGCON 
FGCON (EP3) .MFALT 


FGPILGL 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FGFIL 
FGFIL (EP4) .MFALT 


FGLAP 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 
FGLAP (EP5) .MFALT 


FGLP 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 
FGLP (EP9) .MFALT 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 
FGLP (EP5) .MFLTL1 


FGRET 


RESET PROGRAM SWITCH WORD BITS, FGRET 
FGRET (EP6) .MFALT 
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FGSET 
SET PROGRAM SWITCH WORD BITS, FGSET 
FGSET (EP7) .MFALT 


FGTIM | 
PROVIDE DATA AND TIME OF DAY, FGTIM 
FGTIM (EP8) .MFALT 


FILE 
GET ADDRESS FOR FILE CODE, FGAD (.MFALT) 
FIND PAT FROM FILE CODE, FNDE 
GET ADDRESS FOR FILE CODE, FGAD (.MFLT1) 
FIND FILE CODE, FNDFC 
ACCOUNTING FILE REQUEST, ACTFL 
NORMAL CLOSE OF ACCOUNTING FILE, ACTS1 
ERROR CLOSE OF ACCOUNTING FILE, ACTS2 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 


FIND 
FIND PAT FROM FILE CODE, FNDE 
FIND FILE CODE, FNDFC 


FLBAR 
RESET BAR TO SMALLER AREA, FLBAR 
FLBAR (EP7) .MFLT1 


FLSW 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FLSW 
FLSW (EP3) .MFLT1 


ie 
RECOGNIZE FAULT TYPE AND PROCESS, FLT 
FLT .MFALT ; 


FLUSH 
RELEASE BLINKS, FLUSH 
FLUSH .MGEOT 


FMTAR 
FORMAT ERROR ACCOUNTING RECORD, FMTAR 
FMTAR .MIOS 


FNDE 
FIND PAT FROM FILE CODE, FNDE 
FNDE (EP11) .MFALT 


FNDFC 
FIND FILE CODE, FNDFC 
FNDFC .MIOS 


FORCED 
FORCED RELINQUISH, FRLC 


FORMAT 


FORMAT ERROR ACCOUNTING RECORD, FMTAR 
FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 
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FPRC 
SECONDARY FAULT VECTOR, FPRC 
FPRC .MFALT | 


FPRIO 
GIVE I/O ACTION PRIORITY, FPRIO 
FPRIO (EP6) .MFLT1 


FRLC 
FORCED RELINQUISH, FRLC 
FRLC (EP3) .MDISP 


FRONT 
PROGRAM NUMBER AT FRONT OF QUEUE, DSPQH 
LINK I/O TO FRONT OF QUEUE, LINKF 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 
CREATE FRONT BANNER, FOR 


FSB 
TAKE DUMP FOR SYSTEM ABORT, FSB 
FSB (EP1) .MFALT 


FWAKE 
ALLOW A PROGRAM TO DELAY, FWAKE 
FWAKE (EP8) .MFLT1 


GATES 
OPEN SYSTEM GATES, OPGAT 
CLOSE SYSTEM GATES, SHUG 


GEIN 
PROCESS CALL FROM GEIN, GEIN 
PROCESS CALL FROM GEIN, GEIN 
GEIN (EP6) .MSYOT 


GEINOS 
MME GEINOS PROCESSOR, INOS 


GEPR 
RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 


GESPEC 
MME GESPEC PROCESSOR, SPEC 
COURTESY CALL FOR GESPEC, CCGSP 


GESPECED 
CONNECT SELECTED GESPECED ENTRY, STGPC 


GESYOT 
PROCESS MME GESYOT, MME 


GET 
GET ADDRESS FOR FILE CODE, FGAD (.MFALT) 
GET ADDRESS FOR FILE CODE, FGAD (.MFLT1) 


GIVE 
GIVE I/O ACTION PRIORITY, FPRIO 
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GMRL 
DEALLOCATE MEMORY, GMRL (.MFALT) 
GMRL (EP12) .MFALT 
DEALLOCATE MEMORY, GMRL (.MFLT1) 
GMRL (EP4) .MFLT1 


GMRLM 
MEMORY RELEASE ENTRY FOR TIME-SHARING, GMRLM 
GMRLM (EP9) .MFLT1 


GRD 
ROADBLOCK, GRD 
GRD (EP2) .MDISP 


GSTRT 
FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 
GSTRT (EP10) .MIOS 


HCL 
~CALL MACRO, HCL 
HCL .MDISP 


HEADER 
CREATE REPORT HEADER, START 


HEX 
»~EXIT MACRO, HEX 
HEX .MDISP 


HGT 
~GOTO MACRO, HGT 
HGT .MDISP 


IDENT 
CREATE IDENT BANNER, IDENT 
CREATE IDENT BANNER, IDENT 
IDENT (EP3) .MGOUL 


ILPCX 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, ILPCX 
ILPCX .MIOS 


INDEX 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, ILPCX 
INDEX 


INFORMATION 
PUT INFORMATION IN FCB, FGCON 
PUT INFORMATION IN FCB, FCON 


INITIALIZATION 
INITIALIZATION, .IDISP 
FAULT PROCESSOR INITIALIZATION, .IFALT 
MAIN IOS MODULE INITIALIZATION, .IIOS 
CARD PUNCH INITIALIZATION, .ICPIO 
MDS200 INITIALIZATION, .IDR20 
DSU200 INITIALIZATION, .IDS20 
CARD READER INITIALIZATION, .IGPIO 
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INITIALIZATION (continued) 
MAGNETIC TAPE INITIALIZATION, .IMTAP 
PRINTER INITIALIZATION, .~IPRIO 
PAPER TAPE INITIALIZATION, .IPTAP 
TYPEWRITER INITIALIZATION, .ITYPE 


INOS 
MME GEINOS PROCESSOR, INOS 
INOS (EP5) .MIOS 


INPUT 
ANALYZE INPUT REQUEST, NEWJB 


INTERRUPT 
REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT, DSP 
PROGRAM NUMBER IN QUEUE FOLLOWING INTERRUPT, DSPQM 


INTERRUPT HANDLER 
INTERRUPT HANDLER, IOTRM 
CARD PUNCH INTERRUPT HANDLER, CPIT 
MDS200 INTERRUPT HANDLER, DRIT 
DSU200 INTERRUPT HANDLER, DSIT 
CARD READER INTERRUPT HANDLER, CRIT 
MAGNETIC TAPE INTERRUPT HANDLER, MTIT 
PRINTER INTERRUPT HANDLER, PRIT 
PAPER TAPE INTERRUPT HANDLER, PTIT 
TYPEWRITER INTERRUPT HANDLER, TYIT 


IOS 
MAIN IOS MODULE INITIALIZATION, .IIOS 


IOTRM 
INTERRUPT HANDLER, IOTRM 
IOTRM .MIOS 


ITYM 
MASTER MESSAGE PROCESSOR, ITYM 
ITYM (EP7) .MIOS 


I/O 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 
GIVE I/O ACTION PRIORITY, FPRIO 
3. I/O SUPERVISION 
LINK I/O TO END OF QUEUE, LINK 
LINK I/O TO FRONT OF QUEUE, LINKF 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 
ASSIGN AN I/O ENTRY, QUEUE 
UNLINK I/O ENTRY, UNLNK 
START I/O, STIO 
RESUME I/O FOR PROGRAM, RSMIO 
ABORT I/O FOR PROGRAM, ABTIO 
FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 
RESUME I/O ON CHANNEL, RSMCH 


JOB 
PROCESS END OF JOB, EOJ 
ASSIGN DEVICE AND JOB, ASIGN 
START JOB, STRJB 
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LET 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 


LINK . 
LINK I/O TO END OF QUEUE, LINK 
LINK I/O TO END OF QUEUE, LINK 
LINK (EP1) .MIOS 
LINK I/O TO FRONT OF QUEUE, LINKF 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 


LINKF 
LINK I/O TO FRONT OF QUEUE, LINKF 
LINKF (EP2) .MIOS 


LINKR 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 
LINKR (EP3) .MIOS 


LOGICAL | 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, ILPCX 


LOGICAL UNITS 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FGFIL 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FLSW 


MACRO 
.CALL MACRO, HCL 
EXIT MACRO, HEX 
-GOTO MACRO, HGT 


MAGNETIC TAPE fo 
MAGNETIC TAPE INTERRUPT HANDLER, MTIT 
MAGNETIC TAPE REQUEST, MTIO 
MAGNETIC TAPE INITIALIZATION, .IMTAP 


MAIN 
MAIN IOS MODULE INITIALIZATION, .IIOS 


MASTER 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 
MASTER MESSAGE PROCESSOR, ITYM 


MDS200 
MDS200 INTERRUPT HANDLER, DRIT 
MDS200 REQUEST, DRIO 
MDS200 SELECT, DRSL 
MDS200 ERROR AND EOF RECOVERY, DRGP 
MDS200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
MDS200 INITIALIZATION, .IDR20 


MEMORY 
DEALLOCATE MEMORY, GMRL (.MFALT) 
DEALLOCATE MEMORY, GMRL (.MFLT1) 
MEMORY RELEASE ENTRY FOR TIME-SHARING, GMRLM 
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MESSAGE 
MASTER MESSAGE PROCESSOR, ITYM 


WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 
WRITE EXECUTION REPORT MESSAGE (ABSOLUTE) , EXCA 


MME 
MME GEINOS PROCESSOR, INOS 
MME GESPEC PROCESSOR, SPEC 
PROCESS MME GESYOT, MME 
PROCESS MME GESYOT, MME 
MME (EP1) .MSYOT 


MODE 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 


MODULE 
MAIN IOS MODULE INITIALIZATION, .IIOS 


MOVE 
RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 


MTIO 
MAGNETIC TAPE REQUEST, MTIO 
MTIO (EP2) .MMTAP 


MTIT 
MAGNETIC TAPE INTERRUPT HANDLER, MTIT 
MTIT (EP1) .MMTAP 


MULTIRECORD 
CONNECT MULTIRECORD SIMULATION DCW, STIOM 


NEGATIVE 
MDS200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
DSU200 NEGATIVE ENTRY POINTS, NEGATIVE EP 


NEGATIVE EP 
MDS200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
NEGATIVE EP .MDR20 
DSU200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
NEGATIVE EP .MDS20 


NEWJB 
ANALYZE INPUT REQUEST, NEWJB 
NEWJB .MGEOT 


NORMAL 

NORMAL CLOSE OF ACCOUNTING FILE, ACTS1 
OPEN 

OPEN SYSTEM GATES, OPGAT 
OPGAT 


OPEN SYSTEM GATES, OPGAT 
OPGAT .MDISP 
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OUTPUT 
4, TERMINATION AND SYSTEM OUTPUT 


PAPER TAPE 
PAPER TAPE INTERRUPT HANDLER, PTIT 
PAPER TAPE REQUEST, PTIO 
PAPER TAPE INITIALIZATION, .~.IPTAP 


PAT 
FIND PAT FROM FILE CODE, FNDE 


PERIPHERAL 
1. DISPATCHER AND PERIPHERAL ALLOCATION 


POINTER 
POINTER VALIDATION, PTRVL 
DCW POINTER VALIDATION, DCWCK 


POINTS 
MDS200 NEGATIVE ENTRY POINTS, NEGATIVE EP 
DSU200 NEGATIVE ENTRY POINTS, NEGATIVE EP 


PRIMARY 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FGFIL 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FLSW 
CALCULATE LOGICAL PRIMARY CHANNEL INDEX, ILPCX 


PRINTER 
PRINTER INTERRUPT HANDLER, PRIT 
PRINTER REQUEST, PRIO 
PRINTER INITIALIZATION, .~.IPRIO 


PRIO 
PRINTER REQUEST, PRIO 
PRIO (EP2) .MPRIO 


PRIOR 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 


PRIORITY 
GIVE I/O ACTION PRIORITY, FPRIO 


PRIT 
PRINTER INTERRUPT HANDLER, PRIT 
PRIT (EP1) .MPRIO 


PROCESS 
RECOGNIZE FAULT TYPE AND PROCESS, FLT 
PROCESS MME GESYOT, MME 
PROCESS END OF ACTIVITY, EOA 
PROCESS END OF JOB, EOJ 
PROCESS CALL FROM GEIN, GEIN 


PROCESSING 
2. FAULT PROCESSING AND SERVICE MME'S 
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PROCESSOR 
ACCUMULATE PROCESSOR TIME, DACNB 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 
FAULT PROCESSOR INITIALIZATION, .IFALT 
MME GEINOS PROCESSOR, INOS 
MME GESPEC PROCESSOR, SPEC 
MASTER MESSAGE PROCESSOR, ITYM 


PROGRAM 
ENABLE PROGRAM, ENB 
RELINQUISH CONTROL UNTIL PROGRAM ENABLED, DSCNT 
RESET PROGRAM SWITCH WORD BITS, FGRET 
SET PROGRAM SWITCH WORD BITS, FGSET 
LET SLAVE PROGRAM ENTER MASTER MODE, FEMM 
ALLOW A PROGRAM TO DELAY, FWAKE 
RESUME I/O FOR PROGRAM, RSMIO 
ABORT I/O FOR PROGRAM, ABTIO 


PROGRAM NUMBER 
PROGRAM NUMBER AT FRONT OF QUEUE, DSPQH 
PROGRAM NUMBER AT END OF QUEUE, DSPQT 
PROGRAM NUMBER IN QUEUE FOLLOWING INTERRUPT, DSPOM 


PROVIDE 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 
PROVIDE DATA AND TIME OF DAY, FGTIM 


PTIO 
PAPER TAPE REQUEST, PTIO 
PTIO (EP2) .MPTAP 


Prior 
PAPER TAPE INTERRUPT HANDLER, PTIT 
PTIT (EP1) .MPTAP 


PTRVL 
POINTER VALIDATION, PTRVL 
PTRVL .MIOS 


PUL 
PUT INFORMATION IN FCB, FGCON 
PUT INFORMATION IN FCB, FCON 


QUEUE 
PROGRAM NUMBER AT FRONT OF QUEUE, DSPQH 
PROGRAM NUMBER AT END OF QUEUE, DSPOQT 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 
PROGRAM NUMBER IN QUEUE FOLLOWING INTERRUPT, DSPOQM 
LINK I/O TO END OF QUEUE, LINK 
LINK I/O TO FRONT OF QUEUE, LINKF 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 
ASSIGN AN I/O ENTRY, QUEUE 
QUEUE (EP4) .MIOS 


READ 
READ INTO BUFFER, READ 
READ INTO BUFFER, READ 
READ .MGEOT 
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READ (continued) 
COURTESY CALL FOR READ, CCCRD 


RECOGNIZE 
RECOGNIZE FAULT TYPE AND PROCESS, FLT 


RECORD 
FORMAT ERROR ACCOUNTING RECORD, FMTAR 


RECOVERY 
MDS200 ERROR AND EOF RECOVERY, DRGP 
DSU200 ERROR AND EOF RECOVERY, DSGP 


REDISPATCH 
REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT, DSP 


REISSUE 
CONNECT REISSUE OF SECOND TYPEWRITER COMMAND, TYPER 


REISSUED 
LINK REISSUED I/O TO FRONT OF QUEUE, LINKR 


RELATIVE 
WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 


RELEASE 
MEMORY RELEASE ENTRY FOR TIME-SHARING, GMRLM 
RELEASE BLINKS, FLUSH 


RELINQUISH 
FORCED RELINQUISH, FRLC 
RELINQUISH CONTROL, RLC 
RELINQUISH CONTROL UNTIL PROGRAM ENABLED, DSCNT 


REPORT 
WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 
WRITE EXECUTION REPORT MESSAGE (ABSOLUTE), EXCA 
CREATE REPORT HEADER, START 


REPORT/ACTIVITY 
START REPORT/ACTIVITY, STACT 


REQUEST 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 
ACCOUNTING FILE REQUEST, ACTFL 
CARD PUNCH REQUEST, CPIO 
MDS200 REQUEST, DRIO 
DSU200 REQUEST, DSIO 
CARD READER REQUEST, CRIO 
MAGNETIC TAPE REQUEST, MTIO 
PRINTER REQUEST, PRIO 
PAPER TAPE REQUEST, PTIO 
TYPEWRITER REQUEST, TYIO 
EXTERNAL REQUEST FOR ACCOUNTING FILE CLOSE, ACTS3 
ANALYZE INPUT REQUEST, NEWJB 


RESET 


RESET PROGRAM SWITCH WORD BITS, FGRET 
RESET BAR TO SMALLER AREA, FLBAR 
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RESTORE 
RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 


RESUME 
RESUME I/O FOR PROGRAM, RSMIO 
RESUME I/O ON CHANNEL, RSMCH 


RETURN 
STATUS RETURN, STRET 
FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 


RLC 
RELINQUISH CONTROL, RLC 
RLC (EP4) .MDISP 


ROADBLOCK 
ROADBLOCK, GRD 


RSMCH 
RESUME I/O ON CHANNEL, RSMCH 
RSMCH (EP12) .MIOS 


RSMIO 
RESUME I/O FOR PROGRAM, RSMIO 
RSMIO (EP8) .MIOS 


RUNOUT 
REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT, DSP 


SAVE 
SAVE TRACE BUFFER AND WRITE OUT, TRACF 


SCK 
SET ALARM, SCK 
SCK (EP13) .MDISP 


SECONDARY 
SECONDARY FAULT VECTOR, FPRC 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FGFIL 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FLSW 


SECONDS . 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 


SELECT 
MDS200 SELECT, DRSL 
DSU200 SELECT, DSSL 
TYPEWRITER SELECT, TYSL 


SELECTED 
CONNECT SELECTED GESPECED ENTRY, STGPC 


SERVICE 
2. FAULT PROCESSING AND SERVICE MME'S 
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SET 
SET ALARM, SCK 
SET PROGRAM SWITCH WORD BITS, FGSET 


SHUG 
CLOSE SYSTEM GATES, SHUG 
SHUG .MDISP 


SIMULATION 
CONNECT MULTIRECORD SIMULATION DCW, STIOM 


SLAVE : 
LET SLAVE PROGRAM -ENTER MASTER MODE, FEMM 


SPEC 
MME GESPEC PROCESSOR, SPEC 
SPEC (EP6) .MIOS 


STACT 
START REPORT/ACTIVITY, STACT 
STACT .MGEOT 


START 
START I/O, STIO 
START REPORT/ACTIVITY, STACT 
START JOB, STRIB 
CREATE REPORT HEADER, START 
START (EP1) .MGOU3 


STATE 


RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 


STATUS 
STATUS RETURN, STRET 


FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 


STATUS WORDS 


FORMAT I/O STATUS WORDS AND RETURN STATUS, GSTRT 


STGPC 
CONNECT SELECTED GESPECED ENTRY, STGPC 
STGPC .MIOS 


STIO 
START I/O, STIO 
STIO .MIOS 
STIOM 


CONNECT MULTIRECORD SIMULATION DCW, STIOM 
STIOM .MIOS 


STRET 
STATUS RETURN, STRET 
STRET .MIOS 


STRJB 


START JOB, STRJB 
STRJB .MGEOT 
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SUPERVISION 
3. I/0 SUPERVISION 


SWAP 
RESTORE STATE AFTER SWAP, MOVE, GEPR, DRSTR 


SWITCH 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FGFIL 
RESET PROGRAM SWITCH WORD BITS, FGRET 
SET PROGRAM SWITCH WORD BITS, FGSET 
SWITCH PRIMARY AND SECONDARY LOGICAL UNITS, FLSW 


SYSTEM 
DO DISC I/O USING SYSTEM I/O QUEUE, DMIOA 
SYSTEM TRACE, TRACE 
OPEN SYSTEM GATES, OPGAT 
CLOSE SYSTEM GATES, SHUG 
TAKE DUMP FOR SYSTEM ABORT, FSB 
4, TERMINATION AND SYSTEM OUTPUT 


TAKE 
TAKE DUMP FOR SYSTEM ABORT, FSB 


TERMINATION 
4. TERMINATION AND SYSTEM OUTPUT 


TIME 
ACCUMULATE PROCESSOR TIME, DACNB 
PROVIDE PROCESSOR TIME PRIOR TO REQUEST, FGLAP 
PROVIDE DATA AND TIME OF DAY, FGTIM 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 


TIMER 
REDISPATCH AFTER INTERRUPT OR TIMER RUNOUT, DSP 


TIME-SHARING 
MEMORY RELEASE ENTRY FOR TIME-SHARING, GMRLM 


TRACE 
SAVE TRACE BUFFER AND WRITE OUT, TRACF 
SYSTEM TRACE, TRACE 
SYSTEM TRACE, TRACE 
TRACE .MDISP 


TRACF 
SAVE TRACE BUFFER AND WRITE OUT, TRACF 
“TRACF (EP15) .MDISP 


TRAILER 
CREATE TRAILER ENSIGN, AFT 


TYIO 


TYPEWRITER REQUEST, TYIO 
TYIO (EP2) .MTYPE 
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TYIT 
TYPEWRITER INTERRUPT HANDLER, TYIT 
TYIT (EP1) .MTYPE 


TYPE 
RECOGNIZE FAULT TYPE AND PROCESS, FLT 


TYPER 
CONNECT REISSUE OF SECOND TYPEWRITER COMMAND, TYPER 
TYPER .MIOS 


TYPEWRITER 
CONNECT REISSUE OF SECOND TYPEWRITER COMMAND, TYPER 
TYPEWRITER INTERRUPT HANDLER, TYIT 
TYPEWRITER REQUEST, TYIO 
TYPEWRITER SELECT, TYSL 
TYPEWRITER INITIALIZATION, .ITYPE 


TYSL 
TYPEWRITER SELECT, TYSL 
TYSL (EP3) .MTYPE 


UNLINK 
UNLINK I/O ENTRY, UNLNK 


UNLNK 
UNLINK I/O ENTRY, UNLNK 
UNLNK .MIOS 


VALIDATION 
POINTER VALIDATION, PTRVL 
DCW POINTER VALIDATION, DCWCK 


VICTOR 
SECONDARY FAULT VECTOR, FPRC 


WORD 
RESET PROGRAM SWITCH WORD BITS, FGRET 
SET PROGRAM SWITCH WORD BITS, FGSET 


WRITE 
SAVE TRACE BUFFER AND WRITE OUT, TRACF 
WRITE EXECUTION REPORT MESSAGE (RELATIVE), EXEC 
WRITE EXECUTION REPORT MESSAGE (ABSOLUTE), EXCA 
WRITE FROM BUFFER, WRITE 
WRITE FROM BUFFER, WRITE 
WRITE .MGEOT 
COURTESY CALL FOR WRITE, CCCWR 


» CALL 
~-CALL MACRO, HCL 


~EXIT 
~-EXIT MACRO, HEX 
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~GOTO 
~GOTO MACRO, HGT 


«LCPIO 
CARD PUNCH INITIALIZATION, .ICPIO 
«LCPIO* «MCPIO 


eLDISP 
INITIALIZATION, .IDISP 
e~IDISP .MDISP 


- IDR20 
MDS200 INITIALIZATION, .IDR20 
»LDR20 .MDR20 


~1DS20 
DSU200 INITIALIZATION, .IDS20 
~IDS20 .MDS20 


eITFALT 
FAULT PROCESSOR INITIALIZATION, .~IFALT 
eLFALT ,MFALT 


-IGPIO 
CARD READER INITIALIZATION, .IGPIO 
eIGPIO .MGPIO 


-IIOS 
MAIN IOS MODULE INITIALIZATION, .IIOS 
eLIOS .MIOS 


- IMTAP 
MAGNETIC TAPE INITIALIZATION, .IMTAP 
eIMTAP .MMTAP 


e LPRIO 
PRINTER INITIALIZATION, .~IPRIO 
~IPRIO .MPRIO 


- LPTAP 
PAPER TAPE INITIALIZATION, .IPTAP 
-IPTAP .MPTAP 


sLTYPE 
TYPEWRITER INITIALIZATION, ,ITYPE 
e-ITYPE .MTYPE 


eMACTS 
ACTSI1 (EP1) .MACTS 
ACTS2 (EP2) .MACTS 
ACTS3 (EP3) .MACTS 


eMCPIO 
CPIT (EP1) .MCPIO 
CPIO (EP2) .MCPIO 
eICPIO .~MCPIO 
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»MDISP 


DSP (EP1) .MDISP 3 
GRD (EP2) .MDISP 17 
FRLC (EP3) .MDISP 19 
RLC (EP4) .MDISP 20 
ENCC (EP5) .MDISP 21 
ENB (EP6) .MDISP 22 
DSPOQH (EP7) .MDISP , 24 
DSPOT (EP8) .MDISP 25 
DACNB (EP9) ,.MDISP 26 
DRSTR (EP10) .MDISP 27 
DSCNT (EP11) .MDISP 28 
DMIOA (EP12) .MDISP 29 
SCK (EP13) .MDISP 32 
DSPOM (EP14) .MDISP | 33 
TRACF (EP15) .MDISP 34 
~IDISP .MDISP 35 
HCL .MDISP 36 
HEX .MDISP 38 
HGT .MDISP 40 
TRACE .MDISP 49 
OPGAT .MDISP 51 
SHUG .MDISP 52 
»MDR20 
DRIT (EP1) .MDR20 . 209 
DRIO (EP2) .MDR20 212 
DRSL (EP3) .MDR20 214 
DRGP (EP4) .MDR20 217 
NEGATIVE EP .MDR20 222 
~IDR20 .MDR20 230 
»MDS20 
DSIT (EP1) .MDS20 231 
DSIO (EP2) ,.MDS20 233 
DSSL (EP3) .MDS20 234 
DSGP (EP4) ,.MDS20 236 
NEGATIVE EP .MDS20 247 
~IDS20 .MDS20 254 
.» MDUMP 
CALL .MDUMP AT EP2, BOOT 89 
~MFALT 
FPRC .MFALT 55 
FLT .MFALT 56 
FSB (EP1) .MFALT 17 
GET ADDRESS FOR FILE CODE, FGAD (,.MFALT) 78 
FGAD (EP2) .MFALT 78 
FGCON (EP3) .MFALT 79° 
FGFIL (EP4) .,MFALT . 80 
FGLAP (EP5) .MFALT 81 
FGRET (EP6) .MFALT 82 
FGSET (EP7) .MFALT 83 
FGTIM (EP8) .MFALT . 84 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFALT) 85 
FGLP (EP9) .MFALT 85 
FEMM (EP10) .MFALT 86 
FNDE (EP11) .MFALT 87 
DEALLOCATE MEMORY, GMRL (.MFALT) 88 
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eMFALT (continued) 


GMRL (EP12) .MFALT 88 
BOOT (EP13) .MFALT 89 
~IFALT .MFALT 91 
»MFLT1 
GET ADDRESS FOR FILE CODE, FGAD (.MFLT1) 95 
FGAD (EP1) .MFLT1 95 
FCON (EP2) .MFLT1 96 
FLSW (EP3) .MFLT1 100 
DEALLOCATE MEMORY, GMRL (.MFLT1) 101 
GMRL (EP4) .MFLT1 101 
DIVIDE EXECUTION TIME INTO SECONDS, FGLP (.MFLT1) 105 
FGLP (EP5) .MFLT1 105 
FPRIO (EP6) .MFLT1 106 
FLBAR (EP7) .MFLT1 107 
FWAKE (EP8) .MFLTL 109 
GMRLM (EP9) .MFLT1 110 
~MGEOT 
DISP .MGEOT 326 
STACT .MGEOT 336 
READ .MGEOT 338 
WRITE .MGEOT 340 
CCCRD .MGEOT 351 
CCCWR .MGEOT 354 
CCGSP .MGEOT 356 
ASIGN .MGEOT 366 
STRIB .MGEOT 368 
NEWJB .MGEOT 369 
FLUSH .MGEOT 373 
~MGOU1 
FOR (EP1) .MGOUL 375 
AFT (EP2) .MGOU1 377 
IDENT (EP3) .MGOUL 378 
»MGOU3 
START (EP1) .MGOU3 379 
»MGPIO 
CRIT (EP1) .MGPIO 255 
CRIO (EP2) .MGPIO 257 
~IGPIO .MGPIO 258 
~MIOS 
LINK (EP1) .MIOS 113 
LINKF (EP2) .MIOS 116 
LINKR (EP3) .MIOS 117 
QUEUE (EP4) .MIOS 118 
INOS (EP5) .MIOS 120 
SPEC (EP6) .MIOS 133. 
ITYM (EP7) .MIOS 135 
PTRVL .MIOS 138 
DCWCK .MIOS 139 
FNDFC .MIOS 141 
FMTAR .MIOS 142 
IOTRM .MIOS 144 
UNLNK .MIOS 169 
ILPCX .MIOS 170 
CPB-1500 
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eMIOS (continued) 

STRET .MIOS 

STIO .MIOS 

STIOM .MIOS 

TYPER .MIOS 

STGPC .MIOS 

RSMIO (EP8) .MIOS 
ABTIO (EP9) .MIOS 


GSTRT (EP10) .MIOS 
RSMCH (EP12) .MIOS 
ACTFL (EP13) .MIOS 


e-IITOS .MIOS 


-MMTAP 
MTIT (EP1) .MMTAP 
MTIO (EP2) .MMTAP 
eIMTAP .MMTAP 


-MPRIO 
PRIT (EP1) .MPRIO 
PRIO (EP2) .MPRIO 
eIPRIO .MPRIO 


-MPTAP 
PTIT (EP1) .MPTAP 
PTIO (EP2) .MPTAP 
»~IPTAP .MPTAP 


-MSYOT 
MME (EP1) .MSYOT 
EXEC (EP2) .MSYOT 
EOA (EP3) .MSYOT 
EOJ (EP4) .MSYOT 
EXCA (EP5) .MSYOT 
GEIN (EP6) .MSYOT 


-MTYPE 
TYIT (EP1) .MTYPE 
TYIO (EP2) .MTYPE 
TYSL (EP3) .MTYPE 
e-ITYPE .MTYPE 
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